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Spectrum, como líder, marca un nuevo hito en 
la historia de los ordenadores familiares. 

El Spectrum 128, 

Gran capacidad de memoria. Teclado y 
mensajes en castellano, teclado independiente 
para operaciones numéricas y de tratamiento 
de textos... 

Sinclair e Investrónica han desarrollado una 
auténtica novedad. En ningún lugar del mundo, 


salvo en los Distribuidores Exclusivos de Investrónica, 
podrás encontrar el nuevo Spectrum 128, 

Sé el primero en tener lo último. 

SPECTRUM 128. NOVISSIMUS 
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investrónica 


Tomás Bretón, 61 
TeL (91) 467 82 10, 
Tfelex 23399 rYCOE. 
38045 Madrid 


Camp, 80. 

Tels, (93) 2112558-211 2754, 
08022 Barcelona 





























AÑO 


SUMARIO 

N° 20 - ABRIL 1986 

I 


6 COPY DE GRISES 


Toda la información necesaria 
para obtener sensacionales copias 
con una amplia gama de grises 
en su impresora matricial. 

2 COPY DE GRISES 
PARA ZX-PRUMTER 


Pero si sólo posee un a modesta 
ZX-Printer también podrá 
realizar copys de grises y además 
dos tamaños. 

COMMANDO: GUIA 
DEL HACKER 



Continuamos descubriendo los 
trucos empleados por los 
destripado res de juegos. 



NOTICIAS 


El acontecimiento que más ha 
dado que hablar este mes ha sido 
indudablemente la actuación de la 
policía contra los piratas del 
Rastro madrileño. 




APRENDIENDO 

LENGUAJE 

MAQUINA 



SUPLEMENTO QL 



FICHEROS 
SECUENCIALES EN 
PASCAL 



Del extenso vocabulario del Z-80, 
las instrucciones menos conocidas 
son las de rotación y 
desplazamiento. 


68.008 VERSOS Z-80 

Comparamos el procesador del QL 
con el del Spectrum. 

Compilación de SuperBASIC 
Los nuevos programas siguen sin 
distribuirse en España. En esta 
lamentable situación se encuentra- 
SuperCharge, un magnífico 
compilador de SuperBASIC. 


Un listado extenso para resolver 
el principal defecto del Pascal 
Hisoft: la carencia de ficheros. 



TERMOMETRO 
PARA SPECTRUM 


Animamos a todos los lectores a 
intentar el montaje que 
proponemos este mes: un 
sencillísimo termómetro 
controlado por el Spectrum. 



PROGRAMAS 


Potente base de datos para 
microdrive. 





















SERVICIO DE EJEMPLARES ATRASADOS 



EDITOR DE TEXTO 


. : i. 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envíelo a: 

TftiIflfiAül'lini Bravo Murilío, 377 
MHWSpeGCnm Tel, 733 96 62 - 26020 MADRID 


Ruega me envíen los siguientes 
PECTRUM , ... . ... 

ejemplares atrasados de TODOS- 

El importe lo abonaré 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE 
CRÉDITO □ AMERICAN EXPRESS □ VISA □ INTERBANK 

Numero de mi tarjeta 

. I i i. i 1 í i í i i 1 I l 1 i I i 

Pecha de caducidad . .. 

.Firma 

NOMBRE . 


DIRECCION . . 

CIUDAD.. . 

, , C P . 

PROVINCIA 



Complete su colección de 

fftdospectrun 

A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


Núm. 2 - 300 ptas. 

Gráficos profesionafes/Desplaza- 
miento pixel a pixel/Utilización de ru- 
tinas/Construcción del ínterface 
centronics/Prog ramas de utilidad 
para microdrive/Rutina reset en códi¬ 
go máquina/Análisis del editor de 
textos Tasword/lnterfaces para im¬ 
preso ras/ Programas. 

Núm 3 - 300 ptas. 

Novedades sonimag’84/Ampliando 
el Basic/Programas para ordenar 
programas/Gráficos con el VU-3D/ 
Lenguaje Forth/Archivos en micro- 
drive/Programación de un interface 
de impresora/Programas. 

Núm. 4 - 300 ptas. 

De profesión programador/Consola 
para el Spectrum/Comparación có¬ 
digo máquina-Basíc/Análisis progra¬ 
ma contabilidad/Caiendario/Pascai/ 
Programas 

Núm. S - 300 ptas. 

Floppys para Speclrum/Diseño asis¬ 
tido por ordenador/64 Caracteres 
por línea/Juego de la vida/Pascal/Asi 
hacemos las portadas/Controi de 
e val uaciones/Prog ra mas. 

Núm. 6 - 300 ptas, 

Representación de funciones/Todos 
los caminos conducen a ¡a ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: torgugas para todos/ Interrup¬ 
ciones del Z-80/Programas 

Núm. 7 - 300 ptas. 

Del 48 al PLUS paso a paso/¿Plotter 
para Spectrum?/Juegos/übros de 
código máquína/Lápiz óptico Pro¬ 
gramación del montaje/El LOGO en 
la escuela/Pascal/Floppys para 
Spectrum/Prograrnas. 

Num 8 - 300 ptas. 

Amplia tu memoria. a 48 K/Arquitec- 
tura: análisis del PBEYME/Juegos/ 
FQRTH, Nociones básicas/Una clave, 
please/QL Magazine Ultimas nove¬ 
dades. análisis de software, Lengua¬ 
jes/Aula informática con Spectrum/ 
Programas. 

Núm 9 - 300 ptas. 

Spectrum padanchin/Juegos/Aula 
informática con Spectrum/Análisis: 
Comercial 4/Pascal/Periféricos: Wa- 
fadrive/QL Magazine: EASEL lo mejor 
de PSiON. Música con QL/Desplaza- 
miento Pixel a Pixel, aportación de 
(ectores/Programas/Prograrner II. 

Núm. 10 - 300 ptas. 

Discos: ¡nvesdisc 200/Juegos/Dos 
programas simultáneos/Proteccíón 
del software/Conozca extremadura, 
consulte a su ordenador/Desensam- 
blador Z-80/Sofware educativo/QL 
Magazine: novedades Informal, Hoja 
de cálculo. Ajedrez/Construya su 
propio Joystick/Pascal/programas. 


DISPONEMOS 
DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuademación) 


Núm. 11 - 300 ptas. 

Actualidad/La otra cara del LOGO/ 
Juegos/E] Spectrum habla castella- 
no/SOFTAlD ayuda para Etiopía/ 
S O S aquí el Spectrum/Dibujar con 
lápiz óptico/QL Magazine: Procesa¬ 
dor de textos. Teclas de función pro¬ 
grama bles/Programas. 

Núm. 12 - 300 ptas. 

Actualidad/lnteligencia artificial/Lá- 
piz óptico dkTRQNICS/Juegos/Aná- 
- lisis/Singo/Z-80 PlO/Código máqui¬ 
na/Análisis: MASTERFILE/Progra- 
mas 


Actuaíidad/Discos: Discovery 1/Jue- 
gos/inteíigencia artifícial/Un nuevo 
sistema operativo/QL Magazine: Ar¬ 
chive, Cartrídge doctor. Aplicaciones 
comerciales/Código máquina/Pro- 
gramas 

Núm, 14 - 300 ptas. 

Actualidad, Spectrum 123/Cálculo 
de estructuras para ingenieros y ar- 
qurtectos/HELP utilidades en micro- 
drive/Juegos/El microdrive ese des- 
conocido/Código máquina/QL Ma¬ 
gazine: GRAPHIC QL Juegos. Discos 
de 720 K/Un nuevo operativo/Progra- 
mas. 

Núm. 15 - 300 ptas. 

Actualidad/Spectrum 128/Un nuevo 
operativo/Círculos redondos/Jue- 
gos/Utilidades: BETA-BASIC/QL Ma¬ 
gazine: Introducción al SUPER BA¬ 
SIC Nuevas utilídades/Hardware 
Puertas lógicas/Código máquina/ 
Programas. 

Núm. 16 - 300 ptas. 

Actualidad/Cinco horas con 
SCREENS/Hardware práctico/Cál- 
culos de infinita precisión/Juegos/ | 
Un nuevo operativo/QL Magazine: 
Gráficos en SUPER-BASIC Dibujan¬ 
do con ratón. Archivos con Archive 
Programa/La última batalla, Juego 
estratégico, 

Num. 17 - 300 ptas. 

Actualidad/Gráficos interactivos/ I 

Juegos/Código máquina/Un nuevo 
operativo/Trucos de programación/ 
QL Magazine: Radiografía del QL. 
Gráficos en SUPER-BASIC/Libros/ 
Programmas 

Núm, IB - 300 ptas, 

Actualidad/lnlroduccíón al C/Libros/ 
Juegos/De cinta a microcinta/Vísión 
panorámica de los microprocesado¬ 
res más comunes/QL Magazine: Co- 
py de grises. Microprocesadores ¡ 
68000, una familia numerosa/Gurio- 
seando en la RGM/Programas 
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EDITORIAL 

LA PUNTA DEL ICEBERG 


El mes pasado, gracias 
a una espectacular acción 
policial en el Rastro ma¬ 
drileño, la piratería saltó 
al primer plano de la ac¬ 
tualidad. Veintiocho personas fueron retenidas 
transitoriamente y unas once mil copias piratas de 
programas (la mayoría para Spectrum) quedaron en 
poder de la policía. 

No obstante, conviene recordar que el Rastro es 
únicamente la punta de un enorme iceberg que 
proporciona pingües ganancias a unos cuantos de¬ 
saprensivos. Los vendedores del Rastro saldrían 
bien parados si los comparásemos, por ejemplo, 
con los de algunos comercios especializados en los 
que no sólo se pueden conseguir programas origi¬ 
nales, sino también, a poco que insistamos y a pre¬ 
cios inferiores, copias piratas de esos mismos pro¬ 
gramas. 

Tampoco hay que olvidar que sin la posibilidad 
de obtener fácilmente copias de cualquier juego, el 
Spectrum no sería el ordenador más difundido y 
popular en España. Hace casi exactamente tres 
años, Arturo Selgas, entonces director de marketing 
de Investrónica, afirmaba al respecto: «No protege¬ 
remos los programas de copia ni de listado. El ob¬ 
jetivo de un ordenador de este tipo es que la gente 
lo analice, aprenda a usarlo y le saque aplicaciones 
que, tal vez, fueran insospechadas para el diseña¬ 
dor. 

Viene todo esto a cuento del excesivo revuelo 
provocado por los sucesos del Rastro madrileño. 
Con medidas de este tipo difícilmente se eliminará 
la piratería. Mientras el software sea inasequible 
para la mayoría de los compradores potenciales de¬ 
bido a su elevado precio, esta lacra continuará exis¬ 
tiendo, aunque quizás más subrepticiamente. 

TODOSPECTRUM 















SE ACABO EL BLANCO Y NEGRO 



Muchas veces se habrá sentido defraudado 
al hacer una copia de pantalla en su 
impresora matricial. Aunque su 
Interface esté provisto de una rutina de volcado en 
alta resolución, la imagen resultante es de una 
calidad pésima en relación con la original de la 
pantalla del monitor. Esto se debe a que interpreta 
la tinta como negro y el papel como blanco. La 
rutina que le proponemos va más allá; permite 
hacer copias de pantalla distinguiendo los colores 
originales para transformarlos en sus respectivos 
tonos grises equivalentes, de tal forma que la 
imagen resultante en la impresora es la misma que 
vemos en un televisor en blanco y negro. 

El programa cargador 
en Basic 

El cargador BASÍC de la figura 1 
funciona directamente para utili¬ 
zarlo con un interface Hilderbay. 
En caso de que su interface sea el 
Kempston E sólo debe hacer unas 
pequeñas modificaciones en el 
programa, sustituyendo las DA¬ 
TAS de las líneas 1.000 y 1.300 de 
la figura 1 por los de la figura 2. Si 
el interface que posee no es ningu¬ 
no de los anteriores, no tendrá más 



E STA rutina permite hacer 
una copia o volcado por im- 
preso (Epson RX80, 
FX80 y compatibles) con todos los 
matices de sombreado que pueden 
apreciarse en el televisor en blanco 
y negro conectado a su Spectrum. 
No solamente hace esto (que ya es 
mucho), sino que produce una co¬ 
pia impresa realizada en sentido 
vertical (28 cm + 15 cm), con lo 
cual se aprovechan las máximas 
dimensiones del papel y se evitan 
las deformaciones de las figuras 
(imágenes alargadas). 


















FIGURA l 

Cargador para Interfacc Hilderbac 

10.0 GLEAR 65117 

110 LET n=0: FOR 1«65118 TO 653 
07: READ a: POKE i,a: LET n=n+PE 
EK i¡ NEXT i 


120 

IF n < 

>16665 THEN PRI NT 11 ER 

ROR 

:;N DATAS" s STOP 

130 

PRIN'T 

' 1 C 0 DIGG C 0 R R EC T0 11 : 13 T 

OP 

1000 

DATA 

205,0,91 ,, 24,15,0,0,0,0 

, O , 0 , 

0 , 0 , 0 

1 , 0,0 , 0 , 0 , 0 , 0 

1100 

DATA 

62,27,205,20,255,62,65 

, 2uh , 

20 


1110 

DATA 

255,62,3,205,20,25514 

, 0 , 6 á 
1 120 

\ 

DATA 

27,205,20,255,62,42,20 

■i..) jf ,¿ ri U *i 

■ Ir ■■ ‘iia J VlJ 


1 130 

DATA 

62,4,205,20,255,62,16, 

205,2 

¡0 


1 140 

DATA 

255,62,2,205,20,255,6, 

0 , 197 


1150 

£¡ -i A 

DATA 

205 ,, 170,34,71,4,62,1 , 1 

v.J U X U> 

:¡. 160 

DATA 

1 66 9 8 „ 1 24 n i 5 * 1 S q í s 

. 230 , 

“5f‘ 


11 70 
, 3 , i 5 

DATA 

246 , QS , 1031 , 70,8,120,32 

1 1 80 

DATA 

15, 15 , 230 ., 7,33,244,254 

, i 35 , 

135 


1190 

£) f \ i A 

95 , 22 , 0 , 25 , 6 , 3 , 126 , 205 

, 20 



1200 

DATA 

255 , 35 , 16 , 249 , 193 , 4 , 12 

1 J i| . 4 . -'4 

, 1 76 


1210 

DATA 

■| n 

56 , 199 , 62 , 13 , 205 , 20 , 25 

'-- 3 ■■ ’.-J.i:,. i» 

1220 
y i) 5 

DA 7 A 

0 , 0 , 0 , 12 , 32 , 159 , 62,27, 

1 230 

DATA 

20 , 255 62 65 , 205,20 , 12 

7,62, 

4 2 

1240 

DATA 

205 , 20 , 255 , 201,224,224 

4 224 „ 

0,192 


1250 

DATA 

96, 1 92 ,0 ,160,64,160 , 0 , 

■.o i:.. t..í 



1 £60 

DATA 

12tí , O , 96 , 0 , 96 , 0 , 64 0 , 6 

4 



1270 

DATA 

O 5 0 , 6.4 , 0 , 0 ,0, 0 ,0, 0 

1300 

DAT A 

1 9 7 , 229 , 205 , 254 ,9l, 225 

4 Q'T 

201 ,. 

1 

j. 


FIGURA 2 

Modificaciones para Interface Kcmpston 


1000 DATA 62,3 

,205,1,22,24 

, ! 3,0 

j 0,0 ,, 0, 0 , 0 0 , 

0 ,, 0 ,0,0,0 


1.300 DAT A 245, 

62, 2 ? ,215,24 

i ,215 


‘--'i ) 


remedio que modificar el código 
máqilina. 

En el supuesto de que su impre¬ 
sora necesite avances de línea des¬ 
pués del retomo de carro, debe in¬ 
sertaren el cargador-la siguiente lí¬ 
nea: 

230 POKE 32478,205 : POKE 
32479,20: POKE 32480,127 

La rutina funciona tanto en el 
Spectrum de 16 K como en el de 
48 K, ya que se ejecuta a partir de 
la dirección 32350. Si su aparato 
es de 48 K y desea colocar el códi¬ 
go en una dirección más alta 
(65118), debe cambiar todas las se¬ 
cuencias de Dalas ’205, 20, 127’ 
por '205, 20, 255’ y la secuencia 
'33,244. 126’ por ’33, 244, 254’. 


Ejecución de la rutina 

Una vez haya hecho funcionar 
el programa cargador y no se pre¬ 
sente ningún error (en tal caso de¬ 
berá revisar la secuencia de datas), 
puede grabar la rutina con SAVE 
«COPYGRISES» CODE 
32350,250 (o 65118,250 si ha deci¬ 
dido colocar la rutina en una di¬ 
rección más alta). 

Para comprobar su perfecto fun¬ 
cionamiento, cargue una pantalla 
cualquiera (preferentemente con 
muchos colores) mediante 
SCREENS ”” y acto seguido ejecu¬ 
te la rutina mediante RANDOMI- 
ZE USR 32350 (o RANDOMIZE 
USR 651 18 para el código en una 
dirección más alta). Si la impreso¬ 
ra empieza a imprimir, es muy 
probable que no haya errores, pero 
si se produce un crash del sistema, 
vuelva a cargar el listado BASIC y 
compruebe de nuevo los códigos. 

Si interrumpe la ejecución de la 
rutina durante la impresión, la im¬ 
presora actuará de un modo extra¬ 
ño, con lo cual el mejor medio 
para interrumpir el volcado con¬ 
siste en desconectar la impresora y 
empezar de nuevo. 


Fundamentos 

Los sombreados de la copia, si¬ 
mulando los colores de la pantalla, 
se realizan aprovechando la mayor 
resolución de la impresora. Te¬ 
niendo en cuenta la resolución de 
176 x 256 pixels del Spectrum, si 
cada uno de estos pixels estuviera 
representado por una matriz de 3 x 







El copy can la rutina incluida en el iitterface Kempston carece de mutkes gribes. 


3 puntos en la impresora, obten¬ 
dríamos una copia con una resolu¬ 
ción de 528 x 728, Por esta razón 
debemos descartar las antiguas Ep¬ 
son (tipo MX) con una resolución 
de sólo 480 puntos por línea. Las 
Epson actuales tienen una resolu¬ 
ción de 640 puntos por línea en 
modo 4, con lo cual son perfecta¬ 
mente válidas para nuestros pro¬ 
pósitos. La distancia del avance de 
línea vertical debe ser de 3 puntos 
(3/72 pulgadas), lo cual se consi¬ 
gue mediante el comando ESC 
“A”. 

Para hacerse una idea de cómo 
se consiguen los sombreados, la fi¬ 
gura 3 muestra las matrices de 3 
puntos utilizadas para este fin. Por 
supuesto, usted es libre de cambiar 
a su gusto la rejilla de puntos, para 
conseguir otros tonos diferentes de 


| Esta rutina permite 
una copia por 
impresora con 
todos los matices 
de sombras 
apreciables en un 
televisor en B/N 


grises, incluso puede invertir la se¬ 
cuencia de sombreado, de tal for¬ 
ma que cuando aparezca en la 
pantalla un bit de tinta blanca, se 
imprima en el papel una matriz de 
3x3 puntos, y así sucesivamente, 
consiguiéndose una copia en «ne¬ 
gativo» respecto al original de la 
pantalla. 


El listado ASSEMBLER 

El listado fuente en ensamblador 
de la figura 4 está preparado para 
que una vez ensamblado funcione 
directamente con el interface Hil- 
derbay. Para el Kempston E, susti¬ 
tuya las instrucciones de las subru¬ 
tinas COPY y ITFCE por las de la 
figura 5. Si su interface no corres¬ 
ponde a ninguno de estos dos, pue¬ 
de operar de la misma manera, 
creando previamente las instruc¬ 
ciones necesarias. 

La rutina propiamente dicha co¬ 
mienza en la etiqueta BEGIN, 
donde se establece el valor de la 
distancia del avance de línea a 
3/72 pulgadas y se inicializa el re¬ 
gistro C a cero (utilizado como 
contador de la coordenada X). Se- I 
guidamente, se sitúa la impresora 






























FIGURA 4 

Listado fuente en ensamblador 


ORO 32350 
EN"!" $ 

CALL 23296 
JR CORY 
END 

QRB 323/0 
L.D A, 27 

GALL ITFCE 
LD A,“A" 
CALL ITFCE 


CALL ITFCE 
LD C , O 
LD A„27 
CALL ITFCE 
LD A 
CALL ITFCE 
LD A, 4 


NODO 


O1100000 

i :t oooooo 


D E F' B 7. 0.10 O O O O O 
DEF B 7.10000000 
DEFB O 

ÚLF B 7.0 i, i 00000 


O1OOüOÜÜ 





















[ ramas utilizadas en la rutina. 



en modo 4 y se carga O en el regis¬ 
tro B (contador de la coordenada 
Y). A continuación se hace una 
llamada a la rutina ROM 22AA, 
que calcula la posición de pantalla 
de HL a partir de las coordenadas 
de pantalla de B y C, así como el 
color del pixe! (a partir del archivo 
de atributos). Se lee la TABLA y se 
imprimen los puntos correspon¬ 
dientes (repitiéndose esto para las 
1 76 posiciones de Y). Después de 
esto, se pasa a una nueva línea (y 
opcionalmente a un avance de lí¬ 
nea) para imprimir todas las 256 
posiciones de X. Finalmente, se 
inicializa el avance de línea a 
12/72 pulgadas. 

Los datos de TABLA contienen 
los diseños para cada color, y no 
supone ningún problema cambiar¬ 
los para conseguir diferentes efec¬ 
tos. 

Orlando Araujo Martín 























































































































































COPY DE GRISES 

CON LA ZX- PRINTER 



C UANDO se realiza un dibu¬ 
jo con el Spectrum. normal¬ 
mente se intentan aprove¬ 
char sus posibilidades de color ai 
máximo, pudiéndose obtener pan¬ 
tallas bastante espectaculares. 
Pero a la hora de realizar una co¬ 
pia en impresora de cualquier pan¬ 
talla. el ordenador no entiende de 
colores: se fija sólo en si un deter¬ 
minado pixel es de papel o de tin¬ 
ta, y no en cuáles son esos colores 
de papel y tinta. Por esta causa, al¬ 
gunas pantallas pueden salir muy 
mal. Para conseguir que queden 
bien es necesario tener en cuenta 
los colores, sustituyéndolos por 
distintas tonalidades de grises. Es 
algo así como pasar el dibujo de 
color a blanco y negro. 


Las tramas 

Para conseguir los distintos gri¬ 
ses se utilizan una serie de tramas 
más claras o más oscuras, hacien¬ 
do corresponder a cada color con 
una trama que tenga más o menos 
su mismo nivel de brillo o de clari¬ 
dad, En impresoras más grandes, 
que tienen mayor resolución de 
puntos, se puede hacer correspon¬ 
der un pixel de la pantalla del 


■ El programa realiza 
primero la 
conversión a gris 
en la pantalla. 
Luego la copia 
como lo haría 
normalmente, pero 
incluyendo las dos 
líneas inferiores 

Spectrum con un rectángulo de 
puntos en el papel de la impresora. 
Se puede utilizar entonces este rec¬ 
tángulo para conseguir definir las 
diversas tramas. Pero esto no pue¬ 
de hacerse en las impresoras tales 
como la ZX Primer o la GP50S. a 
las que va dedicado este artículo, 
ya que tienen una resolución idén¬ 
tica a la del ordenador. En este 
caso es necesario modificar un 
poco el sistema, pues con un solo 
punto en la impresora por cada 
punto del ordenador, no podemos 
definir ninguna trama. Será nece¬ 
sario. por tanto, que las tramas 
ocupen más de un pixel de panta¬ 
lla. En los programas que acompa¬ 


ñan a este artículo se han elegido 
como dimensiones de las tramas 
las de un cuadrado de cuatro por 
cuatro pixels. Son las dimensiones 
idóneas para hacer el programa lo 
más corto y sencillo posible y para 
optimizar los resultados obtenidos. 
Las tramas utilizadas se pueden 
ver en la figura I. 


El programa 

El listado 1 realiza un COPY de 
grises utilizando las tramas ante¬ 
riormente citadas. Primero realiza 
la conversión a gris dentro de la 
propia pantalla y luego la copia 
como se haría normalmente, sólo 
que incluyendo las dos líneas infe¬ 
riores. 

La razón de realizar esta trans¬ 
formación sobre la pantalla es por¬ 
que simplifica el programa y lo 
hace más fácil de entender y modi¬ 
ficar. 

El funcionamiento del programa 
es el siguiente: Primero inicializa 
los registros DE y HL con los valo¬ 
res de las direcciones de comienzo 
de pantalla y atributos respectiva¬ 
mente. Tras esto se entra en un bu¬ 
cle que se repetirá para cada uno 
de los 768 caracteres de la pantalla 
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FIGURA 2 




Con rutina de grises. 


iiáí 

PLHH THE GRMi 


Copy normal. 


(24 x 32) en orden de izquierda a 
derecha y de arriba a abajo. Dentro 
de este bucle se toman los valores 
de papel y de tinta multiplicados 
por ocho para buscar la trama co¬ 
rrespondiente en la tabla de tramas 
que hay al final del listado. En el 
listado están definidas con las di¬ 
mensiones de un carácter para 
simplificar cálculos, pero en reali¬ 
dad se repiten cada cuatro pixels, 
tanto en horizontal como en verti¬ 
cal. Se deja en BC la dirección de 
la trama del papel, y en HL la de la 
tinta. Entonces se entra en un bu¬ 
cle que se repite ocho veces para 
los ocho bytes Que componen un 
carácter. Dentro de este bucle se 
utilizan las tramas como máscaras 
para los pixels del byte mediante la 
operación lógica AND, y se deja el 
resultado nuevamente en la direc¬ 
ción que corresponda. Antes de 
entrar en dicho bucle, el byte de 
atributos se pone a papel blanco y 
tinta negra. Después de transfor¬ 
mar todo el carácter se actualizan 
las direcciones de pantalla y atri¬ 
butos y se cierra el bucle compro¬ 
bando si la dirección señalada por 
DE sigue siendo del archivo de 
pantalla. Cuando no es asi se da 
por terminada la transformación y 


I El factor más 
importante para 
obtener buenos 
resultados con 
ambas rutinas es la 
configuración de 
las tramas. 

Siempre es posible 
encontrar alguna 
que se adapte 
mejor al color 
correspondiente 

se procede a la copia en impresora 
mediante la rutina de la ROM, 
pero cargando antes el valor 192 
en B para que no se «coma» las dos 
últimas líneas. 

Puede introducir el programa 
con el listado ensamblador o con el 
cargador BASIC. Aunque no tiene 
llamadas ni saltos absolutos, no es 
reubicable porque utiliza una di¬ 
rección absoluta: la de la tabla de 
tramas. Si quiere ubicarlo en otro 
sitio, tras haberío grabado en cinta, 
cárguelo en la dirección deseada y 


haga: RANDOMIZE dir+80 : 
POKE DIR+21, PEER 23670 : 
POKE D1R+22, PEEK 23671. 
Después grábelo desde su nueva 
dirección. La iongitud es de 139 
bytes. Para utilizarlo cárguelo me¬ 
diante la instrucción LOAD “ 
”CODE dirección. Una vez hecho 
esto cargaremos la pantalla que de¬ 
seemos copiar y haremos RAN- 
DOMIZE USR dirección, con cui¬ 
dado de hacer estas dos últimas 
operaciones de una sola vez si no 
queremos que se borren las dos úl¬ 
timas líneas. 

En la figura 2 se puede contem¬ 
plar una copia hecha con esta ruti¬ 
na frente a una copia de la misma 
pantalla hecha sin esta rutina. La 
diferencia es notable. Los dibujos, 
en general, suelen quedar bastante 
bien, pero hay un problema a la 
hora de copiar letras, pues como 
las tramas ocupan más de un pixel. 
puede borrarse algún punto de la 
letra, y, a no ser que estén en blan¬ 
co y negro, quedarán irreconoci¬ 
bles. Este problema no tiene, en 
realidad, ninguna solución, aparte 
de comprar una impresora mejor. 
Sin embargo, no hay que desani¬ 
marse, pues existe un pequeño tru¬ 
co que, aunque tiene un defecto, 




























































Listado 1 A 



CAMBIO 

FUENTE EN ENSAMBLADOR 

10 ; 



500 

DEC 

A 

20 3 



510 

JR 

NZ,LAP 

30 ; COPY DE 

* GRISES 

520 

POP 

HL 

40 ; 



530 

POP 

DE 

50 1 



540 

INC 

HL 

51 :FÜR 

PABLO AFi IZA-1906 

550 

INC 

E 

52 q 



560 

LD 

A, E 

53 ; 



570 

AND 

A 

60 

ORG 

50000 

580 

JR 

N Z f VU 

70 ; 



590 

LD 

A, D 

SO 

LD 

HL,22528 

600 

ADD 

A, 8 

90 

LD 

DE,16304 

610 

LD 

D, A 

100 LOD 

PUSH 

DE 

620 Vü 

LD 

A ,D 

lio 

PUSH 

HL 

630 

CP 

BB 

120 

LD 

A , { HL. > 

640 

JR 

C,LÜD 

130 

AND 

7 

650 

DI 


140 

RLCA 


660 

LD 

B, 192 

150 

RlCA 


670 

JP 

) OEAF 

i 60 

RLCA 


600 ; 



1 70 

PUSH 

AF 

690 : 



100 

LD 

A,(HL) 

700 ; TRAMAS DE 

LOS COLO FÍES 

190 

LD 

ÍHL) ,56 

710 ; 



200 

AND 

56 

720 q 



21 0 

LD 

BD, NEBRO 

73ü NEGRO 

DEFE 

255,255,255,25 

220 

LD 

H,0 

5 , 255,255,255 * 255 


230 

LD 

L,A 

740 q 



240 

ADD 

HL, BC 

750 ; 



250 

POP 

AF 

760 AZUL 

DEFB 

119,255,221,25 

260' 

PUSH 

HL 

5,119,255,22 

I , 255 


270 

LD 

H,Ü 

770 q 



280 

LD 

L,A 

700 í 



290 

ADD 

HL, EC 

790 RUJÜ 

DEFB 

□5,255,85,255, 

300 

PDP 

BC 

85,255,05,25' 

5 


310 

LD 

A,8 

800 ! 



320 LAP 

EX 

AF,AF J 

Si Ü q 



330 

LD 

A,(DE) 

820 MORADO 

DEFB 

170,85,170,85, 

340 

PUSH 

DE 

1/0,83,170,8' 

¡3 


350 

LD 

E t A 

930 t 



360 

AND 

(HL) 

840 q 



370 

LD 

D, A 

830 VERDE 

DEFB 

136,85,34,05,1 

! 380 

LD 

A,E 

36,85,34, 85 



390 

CPL 


060 !! 



400 

LD 

E ? A 

070 g 



410 

L.D 

A,(BC) 

880 OVAN 

DEFB 

170,0,170,0,17 

420 

AND 

E 

0,0*170,0 



430 

OR 

D 

890 h 



440 

POP 

DE 

900 ; 



450 

LD 

íDE),A 

910 AMARI 

DEFB 

136, 0 ,34,0,136 

460 

INC 

D 

,0,34 H 0 



4 70 

INC 

HL 

920 ; 



480 

INC 

BC 

930 : 



49.0 

EX 

nF,AF' 

940 BLANCO 

0 

DEFB 

0,0, 0 ,0,0 ■ 0,0 , 


Listado 1 B 

CARGADOR BASIC DEL COPY 
DE GRISES 


1 l I lí). 14: 

70 70 70 71 5 7 E: 3638136300 1 A0C326006F0 
9F i E5 26006F09C 1 3EOSOB 1AD55F0DD6 " 

2 DATA 1 'A6577B2F50A A--ÍÍ&2DI i 21 

1 „ -030Ü3Ü20EBF.ID i 231.C7BA720047AÜ 
¿3 08- 577 AF E5B3 BB L F 306 C OC 3 A F O E 10 A 5" 1 

3 DATA 'FFFFFFFFFFFFFFFF77FFÜ 
D F F 7 7FT ijJJFF G5F FS5FF5 5F F55F F A A 5 5 A 
A 5 5 A AS 3 A A 3 5 S 8 55 2 2 5 5Í301> 5 22551A9 Ü 11 

4 DA r A " A A O O A A 00 AAü O A A< J O BB 00 2 

2 '7 O BB i!) O 2 2 O 00 O O000 O<7O 00 Q00 0003F C " 
200 CLEAR 39997: RESTORE s LET 

a=10; LEI b=ll: LET c=12: LET d- 
133 LET e=l4s LET 4* 15¡ LET 
e4 

210 PRINT AT 0,0;'LEYENDO LINEA 
FÜR 5*1 TQ 4; PRINT Ai 0,L6g 

5 

22■ ■ ; .:t AD ¿í: LET b $= a.T < LEN aT-- 3 


ÍL1 > ; LET TQ LEN a4> 4) : 

1F LEN aí/2<;lNT <LEN a£/2> THEM 
PRI NT FLASH 1.; Ai O , O; 11 L1NEñ I 
NPAR EN"; STOP 

230 LET w=Qs FOR x=i !Ü LEN ai 
STEP 2: LET v=VAL (;<) * 16 +VAL a 
i í x +■1 ) : LE I V 

240 F'DKE ad, v 5 LET ad=ad+ls NEX 

r h 

250 LET v~Q; FÜR TO 4s LEY 

v=v#16+VAL b$ í í-e ; s MEXT xi IF v< ;= 
iaj TKEN PRINT FLASH HAT 0,0; "E 
RRÜR EM LINEA "5 STOP 
260 NEXT 5 
270. CLS 

280 PRINT "PON LA CINTA PARA GR 
ABAR- 1 

290 SAVE "CÜPYCÜDE"CODE 5E4,144 


nos permitirá obtener copias de 
cualquier cosa con una calidad in¬ 
finitamente superior a la de la ruti¬ 
na anterior. 


Copy troceado 

El listado 2 es el que nos ayuda¬ 
rá a obtener esas «copias perfec¬ 
tas». El truco está en forzar a la im¬ 
presora a que tenga más resolución 
que el Spectrum. De esta forma se 
podrá hacer que una trama corres¬ 
ponda a un solo punto de la panta¬ 
lla del ordenador, y conseguir gra¬ 
cias a ello la calidad de impresoras 
más profesionales y mucho más 
caras. El defecto es que una copia 
del tamaño que necesitaríamos 
para obtener la resolución desea¬ 
da, no cabe en el papel de la im¬ 
presora, así que la única solución 
es copiar la pantalla en tres trozos 
que luego habrá que recortar y pe¬ 
gar. Esta chapuza merece la pena a 
la vista de ios resultados. Con esta 
rutina se obtienen copias mucho 
mejores y mucho más grandes y es¬ 
pectaculares. En cualquier caso, el 
fin justifica los medios. 

Funcionamiento 
de ta rutina 

La rutina está bastante estructu¬ 
rada en subruíinas sucesivas. Esto 
facilitó mucho su programación y 
facilitará muchísimo su compren¬ 
sión, que de otro modo podría ser 
complicada, debido a la extraña 
manera en que está almacenada la 
pantalla del Spectrum en memo¬ 
ria. 

La primera subrutina inicializa 
el registro HL con la dirección del 
primer tercio de pantalla y el DE 
con la del primer tercio de atribu¬ 
tos y llama después a la subrutina 
TRPA, que es la encargada de co¬ 
piar cada uno de los tres tercios en 
que se divide la pantalla. Después 
se deja un espacio en blanco y se 
calculan las direcciones de panta¬ 
lla y atributos del siguiente tercio, 
repitiéndose el bucle si aún no se 
han copiado todos los tercios y re¬ 
tomando en caso contrario. 

La subrutina TRPA copia un 
tercio completo de la pantalla 
cuando se la llama teniendo en HL 
su dirección de pantalla y en DE la 
de atributos. Para ello realiza un 
bucle que repite 32 veces para 
cada uno de los 32 caracteres en 















que se divide la pantalla horizon¬ 
talmente, actualizando cada vez 
los contenidos de DE y HL para 
que apunten a la correspondiente 
columna vertical dentro del actual 
tercio de pantalla. Una vez copia¬ 
das las 32 columnas, retoma. Para 
realizar la copia de cada una de las 
columnas se llama a la subrutina 
UNBY. 


La subrutina UNBY copia cada 
una de las 32 columnas antes di¬ 
chas. Cuenta con dos bucles anida¬ 
dos. Ei exterior se repite cuatro ve¬ 
ces y el interior 2, por lo que la lla¬ 
mada que se encuentra dentro del 
bucle intemo a la subrutína UN- 
BIT se ejecuta 4 x 2=8 veces, una 
por cada columna vertical de un 
pixel de ancho que hay en la co¬ 


lumna de un carácter de ancho. 
Por cada columna vertical de un 
pixet en la pantalla hay que produ¬ 
cir en la impresora cuatro filas ho¬ 
rizontales de un pixel, o una fila de 
cuatro pixels, por eso tras haber 
llamado dos veces a la sub rutina 
UNBIT mediante el bucle interior, 
habremos obtenido una línea de 8 
pixels, con lo que habremos llena- 





Listado 2 A 







CODIGO FUENTE EN ENSAMBLADOR 



10 : 



680 UNBIT 

PUSH 

DE 





20 ; 



690 

PUSH 

HL 

1350 


RRA 


30 ; CPPV 

de: grises grande 

700 

CALL 

UNBICA 

1360 


RR 

CIX+32) 

40 3 



710 

PDP 

HL 

1370 


RRA 


50 ü 



720 

PDP 

DE 

1380 


RR 

íIX+321 

60 3 POR 

pable: 

ARIZA-198Ó 

730 

LD 

fl,L 

1390 


RRA 


70 g 



740 

ADD 

A, 32 

1400 


RR 

(IX+32) 

BO 3 



750 

LD 

L,A 

1410 


RRA 


90 

ORG 

60000 

760 

LD 

E,A 

1420 


RR 

Í1X+32) ! 

100 s 



7 70 

JR 

NC,UNBIT 

1430 


INC 

BC 

110 ; 



780 

LD 

DE h160 

1440 


LD 

A, í BC) 

120 

LD 

HL,1630« 

790 

ADD 

ix t de 

1450 


RRA 


130 

LD 

DE,22520 

800 

RET 


1460 


RR 

UX+64) 

140 LTP 

PÜSH 

DE 

810 ; 



1470 


RRA 


150 

PUSH 

HL 

320 3 



1480 


RR 

{IX+64Í 

160 

CALL 

TRPA 

830 UNBICA 

LD 

A, tDE) 

1490 


RRA 


170 

LD 

D , 10 

040 

RRA 


1500 


RR 

(IX+64) 

180 LOEIS*-"' 

PÜSH 

BC 

850 

AND 

23 

1510 


RRA 


190 

CALL 

COBUFF 

860 

PÜSH 

HL 

1520 


RR 

UX+64) 

200 

PPP 

BC 

870 

LD 

L t A 

1530 


INC 

BC 

210 

DJNZ 

¿JQESP 

880 

LD 

H, O 

1540 


LD 

A,<BC) 

220 

POP 

HL 

890 

LD 

A, i DE) 

1550 


RRA 


230 

PDF 

DE 

900 

RLA 


1560 


RR 

(IX+96) 

240 

INC 

D 

910 

RLA 


1570 


RRA 


250 

LD 

A,H 

920 

AND 

28 

1580 


RR 

(IX+96) 

260 

ADD 

a, a 

930 

LD 

e,a 

1590 


RRA 


270 

LD 

H, A 

940 

LD 

p, H 

1 600 


RR 

(íX+96) 

200 

CF 

88 

950 

LD 

BC fNEGRO 

1610 


RRA 


290 

JR 

C , LTP 

960 

ADD 

HL, BC 

1620 


RR 

(IX+96) 

300 

REI 


970 

EX 

DE , HL 

1630 


RET 


310 q 



900 

ADD 

HL, BC 

1640 

¡; 



320 3 



990 

PUSH 

HL 

1650 

* 



330 TRPA 

PUSH 

DE 

1000 

POP 

BC 

1660 

PAP 

PUSH 

DE 

340 

PÜSH 

HL 

1010 

POP 

HL 

1670 


POP 

BC 

350' 

CALL 

UNBY 

1020 

LD 

A,4 

16BQ 


JR 

RERES 

360 

PÜP 

HL 

1030 LAR 

PUSH 

AE 

1690 

fl 



370 

POP 

DE 

Í 040 

LD 

A,2 

1700 

5 



sao 

J.NC 

E 

LOCO lEAF 

EX 

AF , AF 1 

1710 

; 



390 

INC 

L 

1060 

PUSH 

BC 

1720 

¡t 

TRAMAS 

400 

LD 

A*L 

1070 

PUSH 

DE 

1730 

5 



410 

AND 

31 

1080 

CALL 

nini 

1740 

: 



420 

JR 

héZ, r'RPA 

1 090 

POP 

DE 

1750 

NEGRO 

DEFB 

15,15*15,15 

430 

RET 


1100 

PPP 

BC 

1760 

3 



440 3 



1110 

EX 

AF,AF' 

1770 

3 



450 ; 



1120 

DEC 

A 

1780 

AZUL 

DEFB 

7,15,13,15 

460 UNEY 

LD 

B,4 

1130 

JR 

NZ,LEAF 

1790 

g, 



470 LÜBIl 

PUSH 

BC 

1140 

DEC 

IX 

1800 

H 



400 

LD 

t.i,2 

1 i 50 

POP 

AF 

1810 

ROJO 

DEFB 

5,15,5,15 

490 

L.D 

IX,23327 

1160 

DEC 

A 

1820 

s 



500 LOBIT 

PÜSH 

DE 

1 170 

JR 

NZ ,LAP 

1030 




510 

PÜSH 

HL 

1180 

RET 


1940 

MACENT 

DEFB 

5*10,5,i0 

520 

PÜSH 

BC 

1190 3 



1850 

5 



5 30 

CALL 

LJ ME I Y 

1200 3 



1860 

5 



54 ü 

POP 

BC 

1210 mm 

RLC 

(HL) 

1870 

VERDE 

DEFB 

8 , i.j- , 2 , uj 

550 

POP 

HL 

1220 

INC 

H 

1880 

; 



560 

PÜP 

DE 

1230 

JR 

NC,PAR 

1890 

3 



5 70 

DJNZ 

L.OBIT 

1240 RERES 

LD 

A,(BC) 

1900 

CYAM 

DEFB 

5,0,5,0 

580 

PUSH 

DE 

1250 

RRA 


1910 

3 



590 

PÜSH 

HL 

í 260 

RE 

(IX+O) 

1920 

3 



600 

CALL 

COBUFF 

1 270 

RRA 


1930 

AMARIL 

DEFB 

4,0,1,0 

610 

POP 

HL 

1280 

RR 

( 1 JL+Ü) 

1940 

i 



620 

POP 

DE 

1290 

RRA 


1950 

? 



630 

POP 

B0 

1300 

RR 

(IX+O) 

1960 

BLANCO 

DEFB 

0,0,0,0 

"640 

DJNZ 

LOBI :L 

13 1 O 

rmpt 


1970 

5 



6^0 

no 


1320 

RR 

CIX+O) 

1980 

; 



660 ¡¡ 



1330 

INC 

BO 

J 1990 

5 



670 : 



1340 

LD 

A * í BC > 

20 O 0 

COBUFF 

EDU 

) OECD 

















do todo el BUFFER de impresora, 
que estará listo para ser enviado a 
la impresora. Por eso hay que in¬ 
cluir en el bucle externo una lla¬ 
mada a la subrutina de la ROM 
COBUFF, que se encuentra en la 
dirección OECDh. 

La siguiente subrutina es UN- 
BIT. Las sub rutinas anteriores ne¬ 
cesitaban tan sólo de dos paráme¬ 
tros: dirección de pantalla y direc¬ 
ción de atributo. Esta subrutina y 
las siguientes necesitarán de un 
tercer parámetro: la dirección en el 
huffer de impresora, que alma¬ 
cenaremos en el registro indexado 
IX. Esta dirección será distinta se¬ 
gún se esté realizando la primera o 
la segunda pasada por el bucle in¬ 
terior de la subrutina UNBY. El 
valor es inicializado en la subruti¬ 
na UNBY y es modificado al final 
de la subrutina UNBIT para que 
sea el correcto la próxima vez que 
ésta sea llamada. Antes de esto se 
realiza un bucle de 8 pasadas para 
copiar en el buffet cada uno de los 
ocho caracteres verticales que 
componen una columna que tiene 
como altura la de un tercio de la 
pantalla. Estos ocho caracteres en 
vertical habrán de ser convertidos 
a 32 caracteres en horizontal. 

Y llegamos a la subrutina UN- 
B1CA. Si ha leído atentamente, 
podrá deducir que copia una co¬ 
lumna de un pixel de ancho y de 
un carácter de alto, que en el buf- 
fer quedará transformada a una 
fila de cuatro caracteres de ancho y 
cuatro pixels de alto. Al principio 
de esta rutina se toman los colores 
de papel y de tinta y se buscan las 
tramas correspondientes, dejando 
la de tinta en BC y la de papel en 
DE, registro que podemos utilizar, 
pues de momento no nos hacen 
más falta los atributos, aunque tras 
haber terminado esta subrutina, 
DE habrá de ser restaurado con la 
dirección que corresponda. En rea¬ 
lidad, casi todas las sub rutinas que 
hemos estado viendo preservan es¬ 
tos registros (DE y HL) en la pila 
antes de llamar a la subrutina si¬ 
guiente. 

Como vamos a copiar una altura 
de un carácter, habrá que realizar 
un bucle de ocho pasadas para 
cada uno de los ocho pixels que 
tiene un carácter de alto. Pero 
como cada pixel en vertical genera 
en el buffet cuatro pixels hori¬ 
zontales, sólo cabrán en un byíe 
del buffet do's pixels de la pan¬ 


talla (en realidad son cuatro hytes 
lo que ocupan estos dos pixels, 
pues cada uno produce cuatro pi¬ 
xels de ancho y cuatro de alto). Así 
que por cada dos bits que se copian 
habrá que actualizar el puntero del 
BUFFER. Por eso en lugar de un 
bucle de ocho pasadas se realiza un 
bucle de cuatro pasadas que tiene 


Listado 2 B 

CARGADOR BASIC DEL 
COPY DE GRISES 
A TAMAÑO GRANDE 

1 DflTtt ■'2n004011005fiD5E5CDSOE 
A<.^JACSCbCD0fceuQF9E 1BU47GC.6Ú86 
?H eSSOTlZCÍDSESCDSPEA!- lül IC1585" 

2 DATrt "2C7DE6 i F20F2C90604C30 
6<J2DD211F SBU5k_üC3UDAEEAC 1E1 DI 1ÜF 
SDSESCDUUOLEIDIX I 10E4C9D5E51; >;»."• 

3 DATA "CDU2EAE 1DI. 7DC*20bF5F 5 

O F2 U A Wi 0» D19C9 > A1FE61CE56F2&001 
Al717t6JC3FS40153EB09EB09ES11X1 *' 

4 DAT A "C í E13E04F 53E020SC5D5C 

DF 2EAD i U1 ’■ D20F4DD2E) F 13D20EBL9C 

2.058 O A I FDDCBOOiE 1FDDCB L38C " 

3 DATA ' r ü u J. L J, F D-DC B 001E1 F D D C El O 
U i E030A \ FDDCB202 E1FDDCB2Ü XEiFDt'iC 
B-‘ ■ J.(i 11 ÜDt; 820 i E03Ü A1 f I)Du &4-ÚQE ID 1 ' 

6 DATA " IE1FDDCB401E1FDDCB401 
HFDDGB40 í E030A1FPDLB601E1F DDCB6 
OlETFDDCBtiOlE i F DDCB6ÚIEC9P5114C" 

7 DATA "CUSA4ÜFOFOFOF07ÜFODO 
I-' O 5 O F DF O SÍO AO 5i O A 08 03012 O h i O ú O 3 Ú 
i; i O4 O ü 0 i O O íd O O "J O O O O o 25 4 J1 

ZQ<. OLEAR 39949 s RESTORE i LET 
a= 10 : LEI b'l 1 : LET c n L2s LET d- 
13; LEI e-14:: LET 1 = 15: LET ad=6 
e4 

210 Pfi Llv; i ñ r o, O; 11 LEYENDO L1 MEA 
: 11 ; FOR z^i Tü 7a. PR1N1 AT 0,16p 
z 

220 READ ais LET ÍLEN **-3- 

TO ): LET TQ LEN a3:-4í í 

TF LEN a*/20INT (LEN a£/2> THLN 
F'RIMT í : LASH i ; AT O, O; "LINEA l 
mm EN": STOP 

230 LEI FOR :< = l l'u LEN 

STEP i_L I v=VAL a i-Oí) * ló+VAL a 
$ (>H 1) t LE I w=w+ v 

2<\ i' í ;, i.i:F aa^ví LEI aia=ad + l; IME.X. 

I >í 

430 LE I v—Os FQR ) TÜ 4; LEI 
V“yé:.l6+0AL b#;A h > i l-JLXi v:; IF v-T- 
W • HEM PRINT FLASH: { ¡¡ AI 0,0; " E 
RRO.R EIM LINEA ": STOP 

260 NEXT z 

270 LLL 

2m PR í N! "PON LA CINTA PARA OR 
ALAR" 

290 SAVE 1 Cü PV C Oi-Eq r"CODL -> , 4 

7 S 


en su interior uno de dos pasadas. 
Cada vez que se ejecuta el bucle 
interior se actualiza el registro IX. 

Y al fin nos encontramos con la 
última de todas las subrutinas: 
MINI. Esta es la que realmente 
hace el copy de grises en el buffet. 
Las rutinas anteriores sólo servían 
para calcular en cada momento 
cuál era el pixel de la pantalla que 
había que copiar y en qué parte del 
buffet había que hacerlo. 

Lo primero que tiene que saber 


es si el pixel que va a copiar es de 
papel o de tinta y seleccionar en¬ 
tonces ía trama correspondiente de 
las dos que ya habíamos buscado. 
Para ello produce una rotación del 
contenido de HL, que es el que 
está señalando al byte de la panta¬ 
lla en el que se encuentra el pixel. 
Esto hace que el pixel de más a la 
izquierda pase al bit de acarreo del 
registro F, lo que nos servirá para 
realizar un salto condicional y de¬ 
cidir si es necesario cambiar la tra¬ 
ma de papel por la de tinta, lo que 
se hace en PAP. Este método de 
rotar directamente el contenido de 
la pantalla hace que la próxima 
pasada, el bit de más a la izquierda 
sea el que antes era el segundo, y 
que es por tanto, el que tenemos 
que copiar. Como esta rotación se 
realiza ocho veces porcada byte, al 
final el contenido quedará inalte¬ 
rado, pero durante la copia de la 
pantalla a la impresora se produci¬ 
rá en la primera un efecto curioso, 
que nos servirá, por otra parte, 
para saber en cada momento qué 
parle de la pantalla se está copian¬ 
do. 

Ai punto señalado con el nom¬ 
bre RERES se entra con la direc¬ 
ción de trama en BC y con la di rec- 
ción de buffet en IX. Entonces 
se va traspasando la trama al buffet 
mediante rotaciones, de tal forma 
que cuando se introduzca la pri¬ 
mera trama que corresponda a una 
determinada dirección de buffet, 
ésta se introducirá en los bits del 7 
al 4, y al introducir la siguiente tra¬ 
ma, esta primera será traspasada a 
los bits del 3 al 0. 

Los resultados de esta rutina 
pueden ser sorprendentes compa¬ 
rados con los de la anterior. Las di¬ 
mensiones reales en una GP50S 
son de unos 23 x 36,5 centímetros, 
y en la ZX printer algo mayores. 

A diferencia del anterior, este 
programa no es reubicabie, así que 
si no disponemos de ensamblador 
habrá que utilizarlo en la dirección 
en la que está colocado, que es la 
60000, La forma de emplearlo es 
igual que la anterior: cargar el có¬ 
digo en la dirección 60000, cargar 
la pantalla y hacer RANDOM1ZE 
USR 60000' 

El factor más importante para 
obtener buenos resultados con am¬ 
bas rutinas es el de las configura¬ 
ciones de las distintas tramas. 

Pablo Ariza 
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SOFTWARE SPÉCTRUM 


S.I.T.I. V.3* 4.480 

6ase de datos con cálculos. 

Al comprar esta versión abonamos 3.000,- ptas. por cual¬ 
quier versión anterior 

Context V.9* 4.480 

Tratamiento de Textos. 

Funciona con cualquier impresora. 

Asenlos graves y agudos 

Al comprar esta versión abonamos 3.000 ptas, por 
cualquier versión anterior. 

Adaptador SIT1-CONTEXT 2.800 

Permite pasar información del SfTl al CONTEXT, 

M.D.S. - Sistema Operativo para 
Miorodrtve 7.000 

Conjunto de nuevos comandos BASC que permiten Ac¬ 
ceso Aleatorio a Ficheros en Microdrive con un tiempo 
medio de acceso de 4 segundos 

CONTABILIDAD PIN* 3.360 

Plan contable 200 cuenias, 2 000 asientos. 

Hasta 9.000-000.000 Balance con activo-pasivo, cía. resul¬ 
tados. Utiliza el SO,M.D.S Cualquier impresora 80 col. 

Kit Utilidades Discovery 1 3.000 

10uiilidades.CATextendido. ON ERROR Compaciador 
de discos, etc. 

AJUSTE DE CABEZALES 
CASSETTE 2,500 

S1NTETIZADOR DE VOZ 3.000 

MULTI-COPYS (Copys desde 2 cm. 
hasta 70 cm.) 3.000 

COPY GRISES (F + , SP-800, 

SP-10Q0, GP-55C) 2.800 

COPY RS-232 2.800 

COPY SERIE RITEMAN F+ 2.500 

EDITOR €4 (64 columnas 
en pantalla) 2.750 

‘Disponible en dieco para Discovery 1 al precio de 
5,000,- ptas. 


HARDWARE SPECTRUM 


VIDECWUEG05 


Interface sonido TV 
Interface Joystik 
Joystick Guickshot II 
l/F Centronics 
Lápiz óptico+software 
Interface monitor 
Cinta virgen 15’ 

Monitor Ciaegi f. verde 
Monitor Ciaegi f. ámbar 
Caja para 12 microdrives 
Teclado Saga 1 
Teclado Saga 3 
Discovery 1+disco Kit 
Diskettes 3 1/2 
Cable impresora Discovery 
Alimentación ininterrumpida 
PigitaUzador de imágenes 
Impresora Riteman F+ 


COMANDO 

CRITICAL MASS 

DAM BUSTERS 

FIGHTING WARRIOR 

GYROSCOPE 

HIGHWAY ENCOUNTER 

OLE TORO 

RAMBO 

SABOTEUR 

SGRIZAM 

SUPERMAN 

THE WAY OF EXPLODING FIST 
WEST BANK 

Y TODAS LAS NOVEDADES. 
Solicita catálogo. 




Optico 


ElCP efto 


PEDIDOS POR CORREO O TELEFONO 
^ . embolso a toda Esparta 


• TIENDA. ÁLRíÍPMC#; : ■ 

' EN £1: CENTRO ÓE. BARCÉiONA : ■ ■' ’ 
HORARIO:««10 h a 20 IÜ ININTERRUMPIDO 
SABADOS CERRADO 


IVA 

INCLUIDO 
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V: V 
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Sistema experto de Flores 


de jardín 

3.500 

Sistema experto de Minerales 

3.500 

APLICACIONES SITl V.3 

3.500 

Agenda+Videos+Con tabit idad doméstica+Stocks, efe. 
{necesita et SfTf V3) 

































GUIA DEL HACKER 




E L programa seleccionado en esta 
ocasión para nuestra guía de! 
Hacker es el COMANDO, El 
juego en sí es bastante simple, hay que 
ir avanzado por una serie de fases en 
las que nos enfrentamos con innume¬ 
rables enemigos armados hasta los 
dientes. 

Pero conforme se juega un par de ve- 
^ ces, algo nos impulsa a seguir jugando, 
a averiguar qué es lo que hay en la si¬ 
guiente fase. Es lo que se llama un jue¬ 
go que produce adicción. Además el 
número de fases nos desafía con dos ci¬ 
fras. Es una víctima idónea para nues¬ 
tros POKEs. En principio las ideas de 
lo que hay que buscar son las de siem¬ 
pre; vidas infinitas, granadas infinitas, 
eliminar disparos enemigos, eliminar 
enemigos, inmunidad frente a ellos, 
pasar directamente de fase, y todo lo 
que se nos pueda ocurrir durante el 
I análisis del programa. 

Como siempre, lo primero es pasar¬ 
lo a un microdri rejunto con el moni¬ 
tor. En esta ocasión nos encontramos 
con un sistema turbo, pero no es muy 
complicado acceder a él. El programa 


BASIC se puede parar directamente y 
contiene escondida detrás de unos có¬ 
digos de cambio de color la dirección 
de lanzamiento del cargador, y otra 
bien visible cuya única misión es des¬ 
pistaren el acceso al código máquina. 
Este comienza con una maniobra de 
distración: una máscara* Tras ella nos 
encontramos con un cargador turbo 
convencional, que incluso funciona a 
la velocidad norria!. Se carga todo en 
un solo bloque que contiene desde la 
pantalla de presentación hasta el final 
del programa. La parte importante que 
debe pasarse a microdri ve parece en¬ 
contrarse entre las direcciones 25344 y 
65741, y se lanza desde 25630, Con 
toda esta información sólo queda para 
poder empezar a trabajar decidir en 
qué dirección debe cargarse nuestro 
querido MGNS3M2. Tras un par de 
castastróficos intentos la conclusión es 
que la 50000 nos viene bastante bien. 
El programa es demasiado grande 
como para que pueda coexistir en la 
memoria junto al monitor sin solapar¬ 
se* En esta dirección destruye parte de 
los gráficos del escenario, quedando 


ilesos los correspondientes a los solda¬ 
dos, con lo que es posible probar algún 
POKE y lanzar el programa desde el 
monitor para comprobar el efecto pro¬ 
ducido en el juego. Los gráficos quedan 
bastante deteriorados, pero se puede 
seguir el desarrollo del juego sin mu¬ 
chos problemas. Incluso más tarde 
descubrí accidentalmente que es posi¬ 
ble volver al BASIC desde el programa 
y después nuevamente al monitor sin 
tener que cargar nada de nuevo. Esto 
es debido a que en varios puntos del 
programa hay rutinas para volver al 
BASIC devolviendo un código que in¬ 
dica dónde se ha parado. Se supone 
que la utilidad de estas rutinas era la 
depuración del programa durante su 
adaptación. 

Y casualmente, en un momento 
inesperado, aparece un hug no caza¬ 
do por los programadores que nos de¬ 
vuelve el control. La forma de utilizar¬ 
lo es pulsando la tecla K en el mismo 
momento en que volvemos al menú 
después de dejarnos matar sin entrar 
en la tabla de récords (conviene tenerla 
apretada desde antes). Inmediatamente 













se nos pedirá la redefinición de teclas 
de una forma un tanto extraña y aca¬ 
bará sorprediéndonos con un mensaje 
o OK.,, Sin embargo, esto no funciona 
igual cuando el programa se carga di¬ 
rectamente desde la cinta, ya que la 
forma de salir es colocando la pila 
como estaba cuando se arrancó el pro¬ 
grama desde 641E (25630), se restau¬ 
ran los registros necesarios y se hace 
un RET, lo que trae consecuencias de¬ 
sastrosas en este caso. 

Pero estamos adelantando acometi¬ 
mientos, y el objetivo es contar las co¬ 
sas en ti orden en que fueron encontra¬ 
das e intentar explicar qué ideas nue¬ 
vas pueden utilizarse en cada momen¬ 
to para seguir adelante en la búsqueda. 

Empezamos en la dirección 641E y 
nos encontramos con un salto absol uto 
a 69D2 seguido de un montón de sal¬ 
tos a otras direcciones. Estas tablas de 
salto nos recuerdan a otros programas 
que fueron diseñados genéricamente 
para cualquier micro que lleve un Z-80 
y luego a través de las tablas adaptados 
a cada máquina concreta. Esta es la 
primera razón que nos hace pensar que 
ei programa es una adaptación al Spec- 
trum de otra versión. 

Pasamos a ver lo que hay en la direc¬ 
ción 69D2. Comienza preparando 
todo para volver al BASIC, luego ini- 
cializa unas variables, llama a unas su¬ 



brutinas y nos encontramos con una 
instrucción CP 53 y otra CP 4A. Ca¬ 
sualmente, esto coincide con los códi¬ 
gos ASCII de las letras S y J, dos de las 
tres posibles teclas entre las que se nos 
da a elegir en el menú principal. Con 
esto ya tenemos una idea de donde nos 
encontramos, las .subrutinas a las que 
llama son las encargadas de cada uno 
de los gráficos de la pantalla de presen¬ 
tación, tabla de récords etc..., y des¬ 
pués se queda en un bucle esperando a 
que se pulse alguna de las teclas posi¬ 
bles, se testean dos y si no es ninguna 
de ellas es que es la otra. 

Anulando las llamadas a las subruti¬ 
nas se puede averiguar cuál es su fun¬ 
ción {viendo qué es lo que falta) y así 
usarlas para diseñar la pantalla para 
nuestros POKEs. Los descubrimientos 
más importantes de esta zona son que 
en la dirección 7615 está la rutina de 
impresión en pantalla, que escribe lo 
que hay detrás de la llamada hasta que 
encuentra el código 1F (esto incluye 
caracteres de control), y que en la di¬ 
rección 6BBB es donde realmente 
empieza a jugarse la partida. 

También se descubre en este punto 
que el programa funciona en modo de 
interrupción 2, con lo que la rutina en 
la dirección 7357 se ejecuta periódi¬ 
camente a razón de 50 veces por se¬ 
gundo. Su función es leer el teclado y 


PROGRAMA 1 


10 CLEAR 40000: LET n=64256: R 
ESTORE 

30 FOR i=1000 TD 1140 STEP 10 
40 READ a$,a: LET 5=0 
50 FGR j=l TO LEN aí-1 STEP 2 
60 LET d= 1 6* ÍCQDE af- < j ) -48-7*1 
aí (j) >"9") J+CDDE aí < j + 1)-48-7* (a 
í (j + 1) >"9") 

70 POKE n,d: LET n=n+l: LET s= 
s+d; NEXT j 

80 IF sOa THEN PRINT "Error 
en la linea ";íj STOP 
90 NEXT i 

100 RANDÜNIZE USR 64256 
1000 DATA "DD2143FE11BC013EFF37C 
D560530F1218751229EFF3E113209FFC 
3CDFF2147FB",3884 

1010 DATA "11O05ED18601EDBÜ21005 

E22176A2147FB1148FB0100023600EDB 

0210A5F22F3",2530 

1020 DATA "DE310062C31E6421735F2 

2C867CD546721056C3635CD1576160C0 

01800564944",2548 

1030 DATA "41530DOD494E46494E495 

441531FCD4C5F380236B6211BED36C0C 

D15764D4554",2669 

i040 DATA "52414C4C4554411FCD4C5 

F3802364021F0E23628CD15764D55434 

84F530DOD45",2595 


1050 DATA "4E454D49474F531FCD4C5 

F38023613214AE73625CD15765452494 

E434S453241 ",2518 

1060 DATA "530D0D434F4E204449535 

041524F531FCD4CSF380236002156643 

6C9CD157653",2398 

1070 DATA "4F4E49444F1FCD4C5F380 

236FE2195DE3628CD1576494E4D4F525 

4414C1FCD4C",2918 

1080 DATA "5F38023618217D6C3632C 

D15764752414E414441530D0D494E464 

94E49544153",2225 

i090 DATA "1FCD4C5F30Ú2363ACD157 

656454C4F43494441441FCD5i72D6303 

BF9FE0A30F5",3127 

1J0O DATA “3832857321CE6722C867F 

DCB079EC3BB6B3EF7DBFE1F3B1CFDCB1 

56620142AQA",3855 

1110 DATA "FD7EFE222328032318F77 

E3D2320F222SAFDF1C91F3B09F1F1FDC 

B07CEC3AE6C", 4138. 

1120 DATA "1F380DDD21004011001B3 

EFFCDC604FBC300E1CD517228FBFE4E2 

8F7CD5172FE",3821 

1130 DATA “532009CD1576205349041 

FC9FE4E20ECCD1576204E4FO41F37C95 

44F444F5350",2789 

1140 DATA “45435452554D20504F4B4 

5531F",913 





POKE 25653,182 

TABLA 1 

Vidas infinitas 

POKE 26746,0 

No vidas extra 

POKE 2666.234 

Vida extra cada 1.000 puntos 

POKE 26736,106 
POKE 29573,X 

Velocidad 

POKE 60699,64 

Repetición de disparos 

POKE 59217,24 

Enemigos inmortales 

POKE 62317,24 

Enemigos sin granadas 

POKE 62337,201 

No disparan 

POKE 58096,24 

Muchos enemigos 

POKE 59190,X 

Radio de acción del disparo {normal- 

POKE 59252.X 

mente 9) 

Igual para granadas {normalmente 29) 

POKE 59210,0 

Permite matar a los de las trincheras a 

POKE 59213,0 

tiros 

Igual para el del puente 

POKE 59833,201 

Sólo se mueve un enemigo 

POKE 25686,201 

Quita el sonido 

POKE 56981,24 

Inmortal 

POKE 27773,58 

Granadas infinitas 

POKE 57188,0 

Evita la muerte por caer en una trin¬ 

POKE 58028,24 

chera 

Evita ser atropellado por el jeep 

POKE 58071,201 

Igual con la moto 

POKE 59319,24 

Con los enemigos 

POKE 62570,24 

Disparos 

POKE 62649,134 

Granadas 

POKE 57896,195 

El jeep no dispara pero no muere 

POKE 33700,201 

No aparece eljepp 

POKE 33899,0 

No aparece la moto 

POKE 34213,0 

No aparece el camión 


controlar el sonido del programa. La 
forma de hacerlo es a través de unas ta¬ 
blas en la dirección 6433, Cuando se 
quiere emitir algún sonido basta con 
colocar el dato correcto en la tabla y la 
rutina se encargara de hacerlo sonar 
durante el tiempo necesario. 

En la rutina de interrupción tiene lu¬ 
gar el primer POKE de nuestra lista: el 
control de velocidad. En la dirección 
7385 está el dato que la controla. El 
valor normal es 2, y si ponemos un 
uno el programa se acelera. Cualquier 
valor mayor ralentiza el juego, Jugan¬ 
do a cámara lenta es más fácil pasar de 
fase e ir descubriendo otras. De esta 
forma averigüe que después de las 8 
primeras, las fases se van repitiendo cí¬ 
clicamente, aunque con distintos gra¬ 
dos de complejidad. El programa crea 
adicción de verdad. 

Nuestro análisis continúa en la di¬ 
rección 6RBB. Aquí encontramos 
nuevas instrucciones CALE y rápida¬ 
mente, sin entrar en ningún bucle, apa¬ 
rece una llamada a la impresión en 
pantalla para comunicamos que lie¬ 
mos pasado de fase, lo cual nos lleva a 
la conclusión de que la partida se juega 
en una de las rutinas a las que ha lla¬ 
mado. Las pruebo por orden, aunque 
desde el principio hay una que se lleva 
todas la papeletas por estar en una di¬ 
rección muy distinta de las demás: 
DC89, Antes de pasar a ese punto 
veamos qué es lo que se puede encon¬ 
trar en las otras rutinas. Su principal 
misión es ínicializar las variables del 
juego. En una de ellas nos encontra¬ 
mos con que coloca en las direcciones 
FDE6 y FDE7 los datos 5 y 6. Evi¬ 
dentemente tiene que ser el número de 
vidas y el número de granadas. Tam¬ 
bién aquí se puede intuir que en la di¬ 
rección FDE5 se guarda el número de 
fase en que nos encontramos. 

El siguiente objetivo es localizar en 
qué punto se modifica el número de vi¬ 
das para anularlo, pero para nuestra 
sorpresa el MONS sólo encuentra el 
punto en que es incrementado, no 
cuando es reducido. En seguida surge 
una idea que nos saca de este atollade¬ 
ro. El registro IY ha sido cargado con 
la dirección FD80 al principio de 
todo, y las variables del juego son refe¬ 
ridas en muchas ocasiones a este valor. 
Con esto ya podemos localizar la di¬ 
rección de nuestro POKE: 6C05, que 
nos hace gozar de un número ilimitado 
de vidas. 

En la dirección DC89 está real¬ 
mente el bucle de juego. En él hay una 
serie de maniobras y luego una larga 
serie de llamadas a subrutinas, todas 
ellas a través de tablas de salto como 
las localizadas al principio. Cada una 
de estas llamadas se encarga del movi¬ 
miento de uno de los posibles objetos 
en pantalla. La primera (la menos es¬ 
tudiada) debe encargarse de la genera¬ 
ción aleatoria de los enemigos y sus 


disparos, asi como del scroll de la pan¬ 
talla (es una suposición). 

Analizando una de las rutinas descu¬ 
brí que cuando en la dirección 5BE6 
había un dato mayor o igual que 10 
significaba que nos habían matado. 
Rápidamente me puse a buscar en qué 
punto era introducido ese dato, pero 
un error en la interpretación de lo que 
ocurría al principio del bucle de juego 
me llevo a perder mucho tiempo. El 
PO KE no aparecía, Como este dato en 
ocasiones era referido al registro ÍX, 
trate de buscarlo como (IX + 12). En 
varias ocasiones parecía que lo había 
encontrado, cuando cargaba en esta 
posición un dato mayor que 10, pero 
siempre conducía a algún tipo de in¬ 
mortalidad de los soldados enemigos. 
También trate de buscarlo como punto 
de colisión con las tablas que contro¬ 
lan los disparos enemigos, pero nada. 
Durante este tiempo de búsqueda en¬ 
contré gran cantidad de POKEs mas o 
menos útiles, como el que permite ma¬ 
tar a los soldados atrincherados de un 
solo disparo. El mejor de lodos es el 
que produce la autorepeiición de los 
disparos, que facilita bastante el juego 
a los que utilizamos el teclado. 

Después de perder bastante el tiem¬ 


po, descubrí cuál había sido mi error. 
El dato se modifica al principio del bu¬ 
cle de juego y además es referido direc¬ 
tamente, Por fin tenemos la inmortali- 
dad. Es fantástico. Te puede ir a hablar 
por teléfono mientras te arrojan infini¬ 
dad de granadas, te disparan, te pisan, 
que cuando vuelves nuestro héroe si¬ 
gue en la misma posición y con el mis¬ 
mo número de vidas. El único proble¬ 
ma es que somos absolutamente in¬ 
mortales, las partidas no pueden aca¬ 
barse nunca. Para solucionar esto se ha 
incluido en el cargador una rutina que 
permite abortar el juego pulsando la 
tecla 2, 

El programa 1 es el cargador que 
contiene los POKEs más interesantes 
en un menú que aparece justo antes de 
cada partida. En este cargador tam¬ 
bién se ha incluido una rutina para pa¬ 
sar directamente de fase en la tecla 1 5 
otra para abonar en la 2, y otra para 
sacar copias de pantalla sin cabecera 
en la 3. 

Para utilizar los demás POKEs te¬ 
néis que introducir el programa 2, lan» 
zarlo y cargar la copia original. 


Manuel Arana 






Los Joystichs más 



QUICKSHOT IV 
(3 en 1) Con mando 
para deporte 


QUICKSHOT IV (3 en 1 
Con mando de carreras 


QUICKSHOT IMSX 


QUICKSHOT Vil-Portátil 


QUICKSHOT I 


QUICKSHOT IX 
Preciso y sensible 

Los QUICKSHOT comercializados por SVI-España, S. A. son los únicos que tienen la GARANTIA OFICIAL SVI 










SPECTRAVIDEO 


QUICKSHOTI! MSX 
Con autodisparo 


vyi i 


QUICKSHOT II 
Con autodisparo 


QUICKSHOT Vil MSX 
Portátil 




Importador exclusivo SVI-España. 


vendidos del mundo. 


QUICKSHOT IV (3 en 1) 
Con mando para combate 






REDADA EN EL 
RASTRO 

Funcionarios del grupo 1. a 
de la Brigada Regional de 
la Policía Judicial, con 
apoyo del grupo 8,° y de la 
Comisaría de Arganzuela, 
procedieron durante la 
mañana del pasado 
domingo 2 de marzo a la 
reti rada de los programas 
que se vendían ilegalmente 
en el Rastro madrileño. 

El valor de los 11.000 
programas retirados supera 
los 22 millones de pesetas. 
En el transcu rSb de la 
operación, la policía tomó 
declaración a 2 8 personas 
presuntamente implicadas 
en la apropiación ilícita de 
los derechos de autor de los 
programas. 


TAS WORD 
THREE 

Tasman Software 
acaba de lanzar el 
Tasword Three, nueva 
versión de su conocido 
procesador de textos. 
A diferencia del 
Tasword Two, se 
suministra en 
microdri ve y no 
trabaja con cassette. 

Entre sus 
características 
destacan la velocidad y 
la posibilidad de 
utilizar 128 caracteres 
por línea. 


TPSUORD THREE 
The Uord Processor 
© Tasman Software Ltd 1986 
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AMSTRAD 
CPC 6128, uno de 
los mejores 
ordenadores según 
los oyentes de la 
COPE 

Los oyentes de Sábado 
Chip, el nuevo 
programa de la COPE y 
Radio Miramar que se 
emite los sábados de 5 a 
7 de la tarde, han elegido 
el Amstrad CPC 6128 
como uno de los 
ordenadores más 
destacados del año. 
paquetes de software 
profesional de 
reconocido prestigio se 
han incorporado al 
catálogo de programas 
disponibles para este 
ordenador: la hoja de 
cálculo Multiplan, de 
Microsoft, y la base de 
datos programable 
dBase II, de Ashton 
Tate. 


ULTIMA HORA 


SERMA, 

distribuidor oficinal 
de Konami 

Kanji Hiraoka, direc¬ 
tor de Konani en Euro¬ 
pa, se trasladó a Madrid 
para firmar personal¬ 
mente el contrato que 
convierte a Serma en el 
importador y distribui¬ 
dor en exclusiva para 


nuestro país de los pro¬ 
ductos de la empresa ja¬ 
ponesa. 

Compatibles 

Spectrum 

Microdigital está pro¬ 
duciendo en Brasil un 
ordenador totalmente 
compatible con el Spec¬ 
trum, el TK.90X. Sin¬ 


clair Research se mues¬ 
tra incapaz de detener la 
producción debido a la 
caótica situación exis¬ 
tente en este país respec¬ 
to al copyright. 

Un portavoz de la 
compañía manifestó que 
el ordenador es compati¬ 
ble con el Spectrum y 
admitió que Microdigi¬ 
tal no posee ninguna li¬ 
cencia para fabricarlo. 


LENSLOCK: 
Continúa la polémica 

Aunque la protección 
Lenslock ya ha sido su¬ 
perada por los piratas, 
sigue implantándose, 
provocando la protesta 
de muchos compradores 
que son incapaces de 
utilizar los programas 
protegidos por este pro¬ 
cedimiento. 















LENGUA. 


2 




¿Sabría decir 
cuántos bits 
tiene un byte. ? , 
¿podría , 
ayudado de 
lápiz y papel , 
calcular a 
cuánto equivale 
en decimal el 
numero binario 
00010111?, ¿le 
suenan a chino 
las dos 
preguntas 
anteriores? 


I la respuesta es SI a 
las dos primeras pre¬ 
guntas y NO a la ter¬ 
cera está capacitado 
para seguir leyendo 
este capítulo, pero si 
ha conseguido cualquier otra com¬ 
binación, es el momento idóneo 
para volver a leer el capítulo pri¬ 
mero (algo así como un CALL cap. 
l.°). Cuando tenga totalmente cla¬ 
ro lo concerniente al sistema de 
numeración binario podrá aden¬ 
trarse en el aprendizaje de las ins¬ 
trucciones lógicas y de rotación. 

Cuando trabajamos en código 
máquina, acostumbramos a consi¬ 
derar que el contenido de un regis¬ 
tro o una posición de memoria es 
un valor entre 0 y 255 (o entre 
-128 y 127). En parte esto es así, 
pero no debemos olvidar nunca 
que esos 256 posibles valores que 
podemos dar a un byte correspon¬ 
den a las 256 posibles combinacio¬ 
nes que podemos conse¬ 
guir de los ocho dígitos bi¬ 
narios (bits) de que está 
compuesto. 

Así como podemos 


imaginamos el resultado de la ins¬ 
trucción assembler ADD A,25 uti¬ 
lizando el sistema decimal (siem¬ 
pre que tengamos en cuenta que si 
nos pasamos de 255 comenzare¬ 
mos de cero y levantaremos la ban¬ 
dera de acarreo), esto nos resultará 
muy difícil cuando trabajemos con 
ciertas instrucciones que se efec¬ 
túan bit a bit. Por ejemplo, la ins¬ 
trucción OR 240 hace un OR lógi¬ 
co (si nunca ha oído hablar de estas 
cosas siga avanzando, pronto lo 
hará) bit a bit entre el acumulador 
(que supongamos tiene un 170) y 
el número 240, quedando el resul¬ 
tado en el acumulador. Si no nos 
imaginamos operador y operando 
en forma de dos conjuntos de ocho 
bits difícilmente podremos intuir 
cuál será el resultado final (ver fi¬ 
gura 2). 
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IDIEND© 

E MAQUINA 


Instrucciones lógicas... 


Este tipo de instrucciones, lla¬ 
madas booleanas en recuerdo de 
George Boole (matemático inglés 
del siglo pasado que dedicó su vida 
al estudio del álgebra que lleva su 
nombre), siempre (excepto con 
CPL) se llevan a cabo entre el re¬ 
gistro A y otro byte; este ultimo 
puede ser: el contenido de cual¬ 
quier registro (incluido el propio 
A), un número de ocho bits o una 
posición de memoria direcci onada 
por HL o indexada con IX o IY. 
Existen cuatro instrucciones que 
realizan operaciones bien distin¬ 
tas: 




OR (“o” o disyuntor inclusivo) 
compara cada par de bits y da 
como resultado I si alguno de los 
dos valía 1 y 0 si ambos estaban a 
cero. Esto puede verse más clara¬ 
mente en la tabla de verdad de la 
figura 1, En castellano 
equivale a decir: «Esa jo¬ 
ven tiene 17 ó 18 años», 
sólo estaremos mintiendo 
si la joven en cuestión no 


IaóTi ^ 


tiene ni 17 ni 18 años, pero dire¬ 
mos una verdad como un templo si 
tiene cualquiera de las dos edades 
o si tiene las dos (aunque esto últi¬ 
mo es realmente difícil). 

AND (“y” o conjuntor) compa¬ 
ra cada par de bits y da 1 sólo en el 
caso de que ambos valgan 1 (ver 
fig. 1). En castellano sería como 
decir: «Hoy he comido altramuces 
y gambas al ají lio», sólo estaremos 


diciendo la verdad si realmente co¬ 
mimos ambas cosas, pero estare¬ 
mos mintiendo si sólo hemos co¬ 
mido una de ellas o ninguna. 

XOR (“o” o disyuntor exclusi¬ 
vo) compara cada par de bits y da 
como resultado 1 cuando sólo uno 
de los dos vale 1, y 0 cuando los 
dos valen 1 o los dos valen 0 (ver 
fig. 1)., En castellano equivaldría a: 
«¡O me das la cartera o te mato!», 
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OVEJAS 

DESCARRIADAS 

Dentro del juego de instruccio¬ 
nes del Z-80 encontramos algunas 
instrucciones difíciles de catalogar, 
como las que actúan sobre la ban¬ 
dera de acarreo. No habrá otro 
momento mejor que este para 
echarles un vistazo, ya que en la 
descripción del trabajo que reali¬ 
zan algunas de ellas se utilizan tér¬ 
minos que acabamos de ver, son 
cuatro: 


Las rotaciones 
simples se 
diferencian de las 
circulares en que 
el bit que sale por 
un extremo del 
byte no se copia en 
el otro extremo, 
sino que pasa al de 
acarreo. El 
contenido previo 
de éste entra por 
la derecha o por 
la izquierda 


sólo cumpliremos nuestra palabra 
si cuando la presunta víctima nos 
da la cartera nos vamos y le deja¬ 
mos en paz o si, en el caso de que 
no nos la diera, nos lo «cargamos» 
realmente. Seríamos mentirosos 
además de ladrones si, encima de 
que nos da la cartera, le pegamos 
un «navajazo» que le llegue al hí¬ 
gado o si se niega a complacernos y 
dejamos que se vaya sin hacerle 
nada. 

CPL (“no” o negador) no necesi¬ 
ta argumento, actúa siempre sobre 
el acumulador complementándo¬ 
lo, es decir, poniendo a 0 los bits 
que valieran 1 y a I los que valie¬ 
ran 0 (ver figuras 1 y 2); esto equi¬ 
vale a hacer un XOR 255 pero 
ocupa sólo un byte. En nuestro 
idioma sería como decir: «Eso que 
dice Ataúlfo no es verdad», estare¬ 
mos diciendo la verdad si lo que 
Ataúlfo dice es mentira, pero esta¬ 
remos mintiendo si Ataúlfo dice la 
verdad. 


COMO SE USAN Y 
PARA QUE SIRVEN 

Después de haber leído pacien¬ 
temente las líneas anteriores puede 
haber llegado a la conclusión de 
que estas instrucciones son muy 
curiosas pero poco útiles: nada 
más lejos de la realidad, pues pue¬ 
den usarse para muchas tareas dis¬ 
tintas. La verdad es que es la prác¬ 
tica la que enseña a utilizarlas con¬ 


venientemente, y cada programa¬ 
dor tiene sus «truquis» y se sirve de 
ellas como más cómodo le resulta; 
eso sí, hay que reiterar que es im¬ 
prescindible un perfecto dominio 
del sistema binario para poder 
aprovechar su potencia. 

La instrucción OR puede usarse 
para poner a 1 ciertos bits del acu¬ 
mulador sin modificar el resto, 
esto es lo que se suele denominar 
uso de máscaras. Por ejemplo, si 
queremos poner a 1 los bits 4-7 
(nibble superior) del acumulador 
podemos hacer como en la figura 2 
un OR 240 (FOh o 11110000b). 
De forma similar podemos utilizar 
AND para poner a 0 los bits que 
deseemos; AND 240 pondrá a cero 
el nibble bajo sin modificar el alto 
(ver fig. 2). Si lo que queremos es 
complementar (cambiar el valor) 
de los bits 4-7 habrá que usar XOR 
240. 

OR también se suele usar para 
comprobar cuándo en un par de 
registros hay un cero, esto es nece¬ 
sario porque las instrucciones de 
incremento y decremento no mo¬ 
difican las banderas cuando actúan 
sobre registros de 16 bits. Para 
comprobar si HL vale cero pode¬ 
mos hacer LD A, H seguido de OR 
L, el resultado quedará en la ban¬ 
dera de cero (Z), 

Otro uso de estas instrucciones 
se deriva del hecho de que puedan 
usar como argumento al propio re¬ 
gistro A. XOR A pone a cero al 
acumulador usando menos memo¬ 
ria que si hiciéramos LD A,O, por 
el contrario OR A no modifica en 
nada al acumulador pero sí a las 
banderas dependiendo del conteni¬ 
do de A, por lo que podremos ave¬ 
riguar si en A vale cero más econó¬ 
micamente que haciendo CP O, 
además suele utilizarse para desac¬ 
tivar la bandera de acarreo. 

















NEC (complemento a dos), que 
actúa sobre el acumulador cam¬ 
biando su signo (en realidad lo que 
hace es coplementar el bit 7). Si 
trabajamos con números sin signo 
difícilmente nos resultará útil. 

CCF, que complementa la ban¬ 
dera de acarreo, poniéndola a I si 
estaba a 0 y poniéndola a 0 si esta¬ 
ba a 1. 

SCF, que pone un uno en la ban¬ 
dera de acarreo. 

NOP, que no hace nada, es de¬ 
cir, simplemente deja pasar cuatro 
estados temporales. 

INSTRUCCIONES 
DE ROTACION 
Y DESPLAZAMIENTO 

Este grupo de instrucciones, que 
pueden actuar sobre cualquier re¬ 
gistro o posición de memoria que 
direccionemos con HL, IX o IY, 
permiten hacer rotaciones, rota¬ 
ciones circulares y desplazamien¬ 
tos aritméticos y lógicos a derecha 
e izquierda. Pero ¿qué entendemos 
por «rotar» y «desplazar» un byte? 

Si consideramos un byte como 
su correspondiente conjunto de 
ocho bits, una rotación circular a 
la izquierda (RCL) equivaldría a 
tomar el bit 7 y copiarlo en el bit 
de acarreo (bandera de acarreo), 
después pasar el 6 al 7, el 5 al 6 y 
así con todos y para finalizar co¬ 


piar el bit de acarreo (lo que había 
en el 7) en el 0. El resultado de 
todo esto es como si tomáramos el 
bit 7 y con él «empujáramos» al 
byte por la derecha, copiándolo, 
para mayor gozo del programador, 
en la bandera de acarreo. 

La mejor forma de llegar a com¬ 
prender cómo funcionan estas ins¬ 
trucciones quizás sea consultando 
la tabla de la figura 3, donde la 
simplicidad de los gráficos hace 
más intuitivo el aprendizaje. 

Las rotaciones simples (RL y 
RR) se diferencian de las circulares 
en que el bit que sale por un extre¬ 
mo del byte no es copiado en el 
otro extremo, sino que pasa al de 
acarreo. Es el anterior contenido 
de este último el que entra por la 
derecha o por la izquierda. 

Los desplazamientos se suelen 
utilizar para dividir (SRL), dividir 
números con signo o en comple¬ 
mento a dos (SRA) y multiplicar 
(SLA) por dos el byte usado, que¬ 
dando en la bandera de acarreo el 
resto (en las divisiones) o el propio 
acarreo (en las multiplicaciones). 

Aparte de las instrucciones vis¬ 
tas existen dos que deben ser consi¬ 
deradas de distinta forma, pues, 
más que con bits, trabaja con nib- 
bles. Son las de rotación decimal, y 
actúan siempre con el acumulador 
y una posición de memoria direc- 
cionada por HL, rotando el nibble 


FIGURA 4 
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JR N2*N_LIN 
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bajo del acumulador con los dos de 
la posición de memoria a derecha 
(RRD) o izquierda (RLD). El nib¬ 
ble alto del acumulador no resulta 
alterado. Esto es particularmente 
útil cuando trabajamos en BCD. 

DESPLAZANDO 
LA PANTALLA 

El listado de la figura 4 efectúa 
un scroll lateral de un pixel con 
toda la pantalla. Obsérvese como 
carga HL con la dirección del pri¬ 
mer byte del archivo de pantalla, C 
con el número de líneas, y, ya den¬ 
tro del bucle N-LIN, B con el nú¬ 
mero de bytes que tiene cada línea 
(igual al número de caracteres). 

Dentro del segundo bucle (RO¬ 
TAR) se hace una rotación dere¬ 
cha del byte direceionado por HL, 
con lo cual el bit que sale por la de¬ 
recha queda en la bandera de aca¬ 
rreo. Después de incrementar HL 
se cierra el bucle, con lo que se 
vuelve a ejecutar la rotación con el 
resultado de que el bit que había 
quedado en la bandera de acarreo 
entra por la izquierda del nuevo 
byte rotado. Ahora es cuando po¬ 
demos damos cuenta de por qué se 
hace un OR A para cada línea, 
esto pone a cero el bit de acarreo 
para que no entre nada por la iz¬ 
quierda de la pantalla (si suprimi¬ 
mos esta instrucción conseguire¬ 
mos «rotar» la pantalla, es decir, lo 
que salga por la derecha entrará 
por la izquierda). 

Fácilmente podríamos modifi¬ 
car esta rutina para que haga un 
scroll a la izquierda. Para ello bas¬ 
tará con sustituir 16384 por 22527 
(línea 40), que es el último byte del 
archivo de pantalla, decrementar 
HL en lugar de incrementarlo (lí¬ 
nea 100) y cambiar RR por RL (lí¬ 
nea 90) para que la rotación se 
haga hacia la izquierda. 


FIGURA 3 
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LE OFRECE LOS MEJORES LIBROS 
PARA SU ORDENADOR 



P,V,P, 750 PTfiS. 

(IVA INCLUIDO) 

Descubre los misterios de la 
programación de una forma 
sencilla, con ejemplos r 
programas y organigramas. 
(110 páginas, tamaño 13,5x21) 



P.V.P. 7SO PTAS. 

(IVA INCLUIDO) 

Un libro especialmente 
dedicado a los que se inician 
por ves primera en el mundo 
del Spectrum, 

{100 páginas, tamaño 13,5x21). 



P.V.P. 900 FTAS. 

(IVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprender 
jugando las rniportantnes 
características del BASIC. 
(258 páginas, tamaño 
15,5 x 21,5). 



P.V.P. 800 PTA5. 

{IVA INCLUIDO) 

Con utilidades, juegos 
exploxívos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades. 

(200 páginas, tamaño 
15.5 x 21,5)- 


P,V,P. 800 PTAS* 

(IVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador. 

(108 páginas tamaño 
13,5 x 21,5). 


RV.P, 800 PTAS. 

(IVA INCLUIDO) 

Muestra una visión más 
completa del conecto 
funcionamiento del juego de 
instrucciones del C-64. 

(108 páginas, tamaño 
13 r 5 x 21.5). 
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i mam m COPIE O RECORTE ESTE BOLETIN DE PEDIDO. 

DESEO RECIBIR LOS SIGUIENTES TITULOS: 

15 HORAS CON EL SPECTRUM (P.V.P. 750) □ 

LOS MEJORES PROGRAMAS PARA EL ZX SPECTRUM (P.V.P. 900) □ 
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VERSUS 



L os primeros microprocesa¬ 
dores que se construyeron 
estaban enfocados a tareas 
muy determinadas, con un juego 
de instrucciones reducido. El Intel 
8080 puede considerarse el micro- 
procesador capaz de resolver una 
gama mayor de problemas con el 
mismo juego de instrucciones. 

El 8080 era un microprocesa¬ 
dor de 8 biís, y aunque la compa¬ 
ñía le retocó para que pudiera tra¬ 
bajar con canales de 16 bits, no ha¬ 
bía suficiente espacio en memoria 
para operar con ellos. Debido a es¬ 
tas limitaciones creó el Z-80, al 
cual se le añadieron 450 instruc¬ 
ciones oficiales, aunque durante el 
proceso de diseño, surgieron alre¬ 
dedor de una centena de «no ofi¬ 
ciales» que no se mencionan en 
ningún manual, como puede ser el 
conjunto de instrucciones SLL 
(Shift Lef't Lógica!) que brillan por 
su ausencia en la página 184 del 
manual del Spectrum (3OH a 
37H). 

El Z-80, aunque sigue siendo un 
microprocesador de 8 bits, puede 
operar con 16 bits en el bus de di¬ 
recciones. (De esta forma es capaz 
de direccionar 2 16 (65536) celdas 
de memoria). 


68008 CONTRA Z-80 

El Motorola 68008 es una ver¬ 
sión de 8 hits de su antecesor el 


Existen muchos usuarios 
con cierta experiencia en 
código máquina de) 
microprocesador Z-80, 
debido sin lugar a dudas 
al gran auge del 
Spectrum. Algunos de 
estos usuarios, al 
adquirir un QL, se 
encontraron con un 
mundo completamente 
nuevo, ya que el 
Motorola 68008 poco 
tiene que vez con el 
familiar Z-80. 
Programar directamente 
el 68008 no consiste sólo 
en tener acceso a unos 
bytes de más y a una 
potencia operativa 
mayor, sino una filosofía 
de programación 
completamente nueva. 

68000 de 32 bits. Mientras el Z-80 
fue diseñado para abarcar una gran 
cantidad de operaciones (es uno de 
lo más completo del mercado), el 
68008 (así como el 68000 y toda su 
familia) está orientado hacia la 
simplicidad de la programación. 

En el Z-80 cada uno de los regis¬ 
tros tiene su especia! idiosincracia. 


Por ejemplo, para los pom de en¬ 
trada-salida sólo puede usarse el 
registro C; en bucles rápidos, el B; 
IX e IY son los únicos que aceptan 
índices; para operaciones aritméti¬ 
cas el A. y así sucesivamente. Sin 
embargo, tanto el 68008 como to¬ 
dos los miembros de su familia 
pueden operar indistintamente 
con cualquier juego de registros 
para lo que deseemos hacer. 


DISTINTOS 

REGISTROS 

El Z-80 trabaja indistintamente 
con registros de 8 y 16 hits, po¬ 
seyendo estos últimos una confor¬ 
mación particular (están constitui¬ 
dos por 2 registros de 8 bits, siendo 
el l.° el menos significativo el 2.° 
el más significativo). Los registros 
de uso general (de 8 bits) son: B. C, 
D. E, H y L además del acumula¬ 
dor (registro A), siendo los dobles 
BC, DÉ. HL y AF. Aparte de todos 
éstos, existe un grupo de Registros 
Alternativos y los registros índices 
IX e 1Y así como el I (dirección de 
página de interrupción) y R (re¬ 
fresco de memoria). 

En cuanto al 68008, tiene 8 re¬ 
gistros de direcciones (A0 a A7) 
que contienen las direcciones de 
memoria que está utilizando el 
programa, y otros 8 registros de da¬ 
tos (DO a D7) que calcula y alma¬ 
cenan datos en memoria. Aparte 
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Instrucciones 

complejas 


En teoría, un micro de 16 bits es 
dos veces más potente que uno de 
8 bits, ya que puede procesar dos 
veces más información en un mis¬ 
mo paso. Sin embargo, en la prác¬ 
tica, la diferencia es mucho más 
grande debido a la necesidad de 
emplear pasos intermedios para 
convertir dos datos de 8 bits en un 
resultado de 16 bits. A diferencia 
del Z-80. el 68008 tiene la facultad 
de producir un resultado de 16 de 
forma inmediata a pesar de que 
sólo transfiere 8 bits a un mismo 
tiempo cada vez que transmite in¬ 
formación. 

El 68008 tiene incorporado en 
su juego de instrucciones algunas 
muy complejas que hacen en un 
sólo paso ciertas tareas en las cua- 
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Z-80 en el SpeCirum 128, junto a la EPROM *1 




de estos dos juegos de registros, 
también tiene un contador de pro¬ 
grama y un registro de estado. To¬ 
dos los registros utilizados tienen 
una longitud de 32 bits, menos el 
registro de estado con sólo 16. Esto 
hace que la programación en códi¬ 
go máquina de 68008 sea muy 
consistente y facilita el aprendizaje 
del juego de instrucciones. Aquí ya 
no es necesario enfrentarse con las 
sutilezas del Z-80, y la simetría re¬ 
sultante hace más fácil la depura¬ 
ción de errores, alteración de pro¬ 
gramas y creación de compilado¬ 
res. En este último sentido es mu¬ 
cho más difícil escribir un buen 
compilador para el Z-80 debido a 
la amplia gama de casos especiales 
que deben ser reconocidos en vis¬ 
tas de producir el mejor código ob¬ 
jeto posible. En el extremo, un 
buen compilador para el 60008 
puede producir un código ha partir 
de un lenguaje de alto nivel como 
el «C» casi tan eficiente como uno 
que se hubiese escrito a mano. Esta 
es la razón por la que el QDOS y el 
sistema operativo UNIX se han 
podido escribir enteramente con 
un compilador en lugar de un en¬ 
samblador. (Los programas compi¬ 
lados se escriben más fácilmente 
que los ensamblados). 


FJ 68008 se reconoce fácilmente en el QL por la chapa de oro (/ue lo cubre ♦ 




























■ El juego 
de 

instrucciones 
del 68008 
está 
orientado 
hacia la 
facilidad de 
programación. 
■ El 68008 
es capaz de 
hacer una 
división o una 
multiplicación 
de 32 bits en 
un solo paso 
frente al 
centenar que 
requiere el 
Z-80. 
■ La 
simetría del 
68008 hace 
más fácil la 
depuración 
de errores, 
alteración de 
programas y 
creación de 
compiladores. 


LA CPU 68008 
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68006 

El 68008 es el último de una serio de 
pro cesado res compatibles, con similares 
juegos de instrucciones y registros. Un 
conjunto de registres índices guarde las 
direcciones de memoria que está utilizan da 
el programa y un conjunto de registros de 
datos se utiliza para calcular y almacenar 
datos. Todos los registros son de 32 bits, 
excepto el registro de estado, de 16 Los 
cálculos se realizan en la unidad de 
aritmétíeodógica (AlU), que almacena 32 
bits de instrucciones do una vez, El puntero 
del stack y el contador de programa 
mantienen las dirección de las áreas de 
memoria utilizadas por el ALU para las 
instrucciones de programa y los datos 
Aunque los huses de datos y direcciones 
dentro del microprocesador son de 32 bits, 
el 680D3 transfiere 8 bits de datos y 20 de 
direcciones a la vez al mundo exterior. El 8 
al final del número que designa al 
procesador se debe precisamente al número 
de bits de datos que puede transferir de una 
vez. 
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LA CPU Z-80 



Z-8D 

El Z-3G es una versión mejorada del SOBO 
que incluye un juego de instrucciones más 
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empleadas por la MU para el programa y el 
almacenamiento de datos El Z-80 es único, 
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BUS DE CONTROL 


versátil y un conjunto «de reserva» de sus 
principales registros. Todos los registros 
son de 16 bits, excepto el acumulador, de 8 
bits, íLos otros 8 bits se utilizan para el 
registro de estado o de banderas). 

IX e IY se utilizan como registros índice de 
tablas El puntero stack y los registros de 
programa mantienen las direcciones 


pues tiene también un registro de 8 bits de 
interrupciones y un registro de refresco El 
registro de interrupciones contiene los 8 
bits superiores de una dirección de 
interrupción, mientras los ocho inferiores los 
proporcionan los periféricos El registro de 
refresco se encarga del refresco de 
memoria, eliminando así otro chip externo. 


les un microprocesador más senci¬ 
llo invertiría muchos más. Por 
ejemplo, el 68008 puede realizar 
multiplicaciones y divisiones de 
32 bits en un único y rapidísimo 
paso, cuando el Z-80 necesitaría 
emplear alrededor de un centenar 
para hacer la misma operación, al 
no tener implementadas estas fun¬ 
ciones. 

El 68008 tampoco sacrifica fle¬ 
xibilidad al utilizar sus registros de 
32 bits, pues cada instrucción pue¬ 
de emplearse en la forma de 32, 16 
y 8 bits. 


ACCESO AL C/M 
DESDE EL BASIC 
Y EL SU PER BASIC 

En el Spectrum, la forma más fá¬ 
cil de ejecutar un programa en có¬ 


digo máquina consiste en el uso de 
la instrucción USR «dirección de 
comienzo», habiendo antes prote¬ 
gido la zona de memoria donde va 
almacenado el código mediante 
CLEAR. Sin embargo, el QL no 
utiliza la llamada USR, sino 
CALL seguido de un conjunto de 
parámetros opcionales. Mediante 
la instrucción RESPER (X) se re¬ 
servan X bytes de memoria. 

Un programa de QL que utilice 
código máquina puede tener la si¬ 
guiente apariencia general: 

Í000 REM RESERVA AREA 
1010 LET A = RESPR (100) 

1020 PRINT “RESERVADOS 
100 BYTES DESDE»; A 
1030 FOR X = 1 TO 100 
1040 READ D: POKE A + X, D 
1050 NEXTX 

1060 CALL A. DO, DI, D2, D3, 
D4. D5, D6, D7, A0, Al, A2, A3, 
A4, A5 


1070 REM VUELVES! D0 = 0 
1080 DATA 1,2, etc. 

Finalmente, otra gran diferencia 
entre el 68008 y el Z-80 radica en 
el modo de leer el primero los da¬ 
tos almacenados en memoria. El 
68008 emplea la técnica llamanda 
pipelining. El Z-80 (y cualquier 
otro microprocesador que no lleve 
incorporada dicha técnica) trabaja 
realizando las siguientes tres accio¬ 
nes una por una y en el orden des¬ 
crito: búsqueda de instrucción, de- 
codificación y ejecución de la ins¬ 
trucción. Sin embargo, el 68008 
usa una unidad de separada para 
leer instrucciones de tal manera 
que pueda seguir leyendo las si¬ 
guientes instrucciones mientras el 
resto del microprocesador está eje¬ 
cutando la última. Este sistema 
permite aumentar de manera efi¬ 
ciente la velocidad de proceso. 

Orlando Araujo Martín 
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Compilación 
de SuperBASIC 


D igital Precisión pretendía re¬ 
solver todos los problemas, 
sin afectar para nada la po¬ 
tencia del lenguaje. 

Supercharge debería compilar la 
inmensa mayoría de los programas 
existentes en SuperBASIC, sin 
ninguna alteración. También ten¬ 
dría que ser capaz de funcionar en 
todas ¡as versiones de QL existen¬ 
tes, con un consumo mínimo de 
memoria, y el código objeto gene¬ 
rado debería ejecutarse a la máxi¬ 
ma velocidad posible. De esta ma¬ 
nera, se llevó a buen término el di¬ 
seño del SuperCharge. 

El SuperBASIC es lento porque 
tiene que buscar cada comando, lí¬ 
nea y variable de un programa 
donde quiera que estén. Es un len¬ 
guaje interpretado y por lo tanto 
cada punto y coma, cada instruc¬ 
ción, son verificados detenidamen¬ 
te mientras se ejecuta el programa. 


EL ANALIZADOR 
DELLENGUAJE 


El compilador SuperCharge está 
formado por dos partes principa¬ 
les: el par ser. que analiza las ins¬ 
trucciones del programa original 
en SuperBASIC. y un generador de 
código objeto, que convierte las 
instrucciooncs a las correspon- 

ÚL6 


Antes del lanzamiento 
del QL a la calle, se 
decía que el 
SuperBASIC 
incorporado en él, iba a 
ser un lenguaje potente, 
multitarea y que 
trabajaría a una 
velocidad constante sin 
tener en cuenta el 
tamaño del programa. 
Después vino la gran 
desilusión: el 
SuperBASIC no era 
multitarea, resultaba 
más bien lento y sólo 
tenía 7 dígitos de 
precisión. Para remediar 
esto, en julio de 1984 
Digital Precisión 
empezó a trabajar en el 
SuperCharge, un 
compilador automático 
destinado a convertir el 
SuperBASIC en 
rapidísimo código 
máquina... 


dientes en código máquina. Le 
acompañan también un programa 
de demostración y un conjunto de 
procedimientos para el control de 
tareas y depuración de errores. 

El praser fue inicialmeme escri¬ 
to en 2.500 lineas de SuperBASIC 
sin un sólo GO TO o GOSUB. iSu 
primer gran desafío fue compilarse 
a sí mismo! 

El parser lee el programa que va 
a ser compilado y el resultado de 
sus análisis se almacena en una 
zona libre de la RAM del QL. Esto 
produce una rápida compilación y 
deja libres 40 K de memoria (en el 
QL estándar ) para que el progra¬ 
ma que se va a compilar pueda ca¬ 
ber perfectamente. 


ELGENERADOR 
DE CODIGO 

El generador de código es un 
programa de poca longitud que se 
carga sobre el parser. Está escrito 
en código máquina para que pueda 
tratar bits y bytes a la máxima ve¬ 
locidad. 

Este generador código seleccio¬ 
na las rutinas en código máquina 
que realizarán la compilación. El 
código producido se graba en un 
diskette o mkrodrive. de tal modo 
que pueda ser cargado con EXEC. 
Los programas compilados se car- 











El compilador de Digital Precisión está protegido con Leus loe k. 


gan rápidamente, ya que no tienen 
que ser «lokenizados» por el Super- 
BASIC, Debido a estos programas 
no pueden listarse, están a salvo de 
ojos indiscretos y de los intentos de 
piratería. 


VENTAJAS Y 

LIMITACIONES 

DESUPERCHARGE 


Existen algunas diferencias entre 
programas compilados e interpre¬ 
tados además de la velocidad. 

En el SuperCharge. la primera 
diferencia que se observa es la re¬ 
presentación numérica con 9 dígi¬ 
tos de precisión. 


SuperCharge se adopta automá¬ 
ticamente a diferentes ROMs y 
juegos de comandos (transcurren 
unos momentos antes de la ejecu¬ 
ción mientras busca las rutinas ne¬ 
cesarias). 

El compilador solamente prohí¬ 
be unas pocas instrucciones (como 
ED y RENUM) que cuentan con la 
presencia de las estructuras de da¬ 
tos del intérprete. Si tuviese que 
estar al corriente de la fuente del 
programa y la lista del nombre, se¬ 
ría apenas un poco más veloz que 
el intérprete. 

Otra limitación consiste en que 
una matriz no debe de contener 
más de 32.767 elementos. Cadenas 
y números enteros siempre deben 
estar señalizados con un signo do- 
llar o un tanto por ciento. De la 


misma manera, los parámetros de 
GO TO. GO SUB y DATA tienen 
que ser constantes (no expresio¬ 
nes). 

Estas escasas limitaciones son 
necesarias para que pueda resultar 
más compacto y rápido. Si se co¬ 
mete algún error, el compilador 
muestra un mensaje en inglés que 
la informa y le muestra el lugar 
exacto del programa donde se pro¬ 
dujo el error. 

Los programas con SuperCharge 
funcionan a una velocidad nueve 
veces más rápida que los progra¬ 
mas SuperBASIC convencionales. 
Esta velocidad puede incluso ser 
cuadruplicada si se excluye en el 
programa la coma flotante. 

Orlando Araujo Martín 
OU 
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Ya se puede escuchar 
el sonido del futuro. 



Llega a España la Alta Fidelidad SVI: Tecnología de futuro para el sonido. 

HI-FI SVL Conózcala. Conozca su futuro en música y disfrútelo ya. Ahora puede. 


— Plato. 

— Amplificador, 25 W por canal. 

— Doble pletina de arrastre, con grabación 
a alta velocidad. 

— Sintonizador. 

— Eciializador. 

— Columnas de dos vías. 

— Compact-Disc con lectura por rayo láser. 


Precio del Equipo (sin Compact-Disc), con 
columnas y mueble especial: 59*900 ptasf 
Precio del Compact-Disc: 49.900 pta$* 

CONJUNTO! 

PRECIO ESPECIAL DE LANZAMIENTO: 99.900 PÍAS* 

* Estos precios no incluyen I VA. 



















Uno de los principales defectos del Pascal es su 
incapacidad para trabajar con ficheros. Las rutinas 
desarrolladas por Santi Casablancas resuelven este 
inconveniente, permitiendo la utilización de fiche¬ 
ros secuenciales en microdrive desde el compilador 
Pascal Hisoft. 

Los procedimientos y funciones utilizadas se 
describen por orden de importancia, excepto 
ERROR, que se declara FORWARD al principio y 
se codifica al final. 


















L o primero que debe hacerse es 
declarar una serie de tipos y 
constantes ullizados en estas ru¬ 
tinas para evitar errores fatales para el 
sistema. 

Las constantes son: 

DSTR1 = 23766 número Microdrive 
DSTR11 = 237767 segundo byte núm. 
Microdrive 

SSTR1 - 23768 número canal 
LSTR1 =23768 identificador de canal 
NSTR1 =23770 longitud nombre 
TSTR l = 23772 dirección nombre 
CHANS = 23631 

STRMSR = 5cl6H inicio área corrien¬ 



tes 

CURCHL = 23633 dirección de desti¬ 
no de 1/0 
Los tipos son: 

FILEN AME = ARRAY (1.. 10) OF 
CHAR; 


DR1VENUM = 1... 8; 

CHANEL= 1... 15; 

FILE = tipo de la variable a utilizar en 
el archivo. 

Procedimiento OPEN: (NOM¬ 
BRE, CANAL, ORIVE): 

Es el procedimiento utilizado para 
abrir un archivo en Microdrive y asig¬ 
narle una corriente. Los parámetros 
son NOMBRE: FILENAME, CA¬ 
NAL. CHAÑE (normalmente del 4 al 
15) y ORIVE: DR1VENUM. 

Primero se calcula la dirección de la 
corriente y se comprueba que no esté 
abierta (se provoca un error si ya está 
asignada a un canal). Seguidamente se 
pokean la dirección del nombre de fi¬ 
chero. su longitud y el número del Mi¬ 
crodrive en las variables del sistema 


D_STR1, N3TR1 y T_STR1 y se eje¬ 
cuta una rutina en lenguaje máquina 
(contenida en un procedimiento INLI- 
NE) que crea un canal M y devuelve en 
la variable local AUX el desplaza¬ 
miento de canal. Finalmente se pokea 
el desplazamiento en la dirección de 
corriente calculada al principio. 

Tiene los mismos efectos que el 
OPEN del BASIC. Si el archivo no 
existe, lo crea y si existe lo abre para 
lectura. 


Procedimiento CLOSE (CA¬ 
NAL): 

Utilizado para cerrar un archivo. Es 
obligatorio sobre todo en los archivos 
de escritura. 

El único parámetro utilizado es CA¬ 
NAL: CHANEL. Puede dar dos erro¬ 
res; canal no abierto o que el canal no 
sea de Microdrive. 



I procedimiento 
OPEN tiene los 
mismos 
efectos que la 
instrucción BASIC 
equivalente. Si el 
archivo no existe 
lo crea, si existe 
lo abre para 
lectura 


Primero se calcula la dirección del 
canal y se comprueba las condiciones 
de error para después ejecutar una ru¬ 
tina en código máquina (contenida en 
un procedimiento INL1NE) que cierra 
el canal. Finalmente, se pone a cero la 
dirección de la corriente. 

Los efectos son iguales que la sen¬ 
tencia CLOSE del BASIC. 


Procedimiento COUT (CA¬ 
NAL, CHAR): 

Utilizado para escribir un carácter 
en el canal especificado. 

Los parámetros son CANAL: CHA- 
NEL y CAR: CHAR. Puede compro¬ 
bar que contiene otro procedimiento 
en ámbito local, el procedimiento 
SPOUT. Si ya.lo tiene definido ante¬ 
riormente, puede eliminarlo. 

Primero se calcula la dirección del 
canal y se pokea en la variable del sis¬ 
tema CHUCHL. Seguidamente se em¬ 
plea el procedimiento SPOUT para es¬ 
cribir el carácter en la corriente abier¬ 
ta, para finalmente, devolver a 
CHURCHL su valor primitivo. 











No se comprueba si la corriente está 
abierta o si es de Microdrive para per¬ 
mitir su empleo con cualquier canal 

Función CIN (CANAL): 

Esta función devuelve el siguiente 
carácter existente en la corriente espe¬ 
cificada. 

Eí parámetro de entrada es CANAL: 
CHANS y la salida entrega una carác¬ 
ter. Es parecida al ÍNKEYS del BA¬ 
SIC. 

Consiste solamente en un segmento 
de código máquina contenido en un 
procedimiento INLINE. 

Función LECOESC (CANAL): 

Devuelve un valor TRUE si el ar¬ 
chivo es de escritura y FALSE si es de 
lectura.. 

El parámetro de entrada es CANAL: 
C HAN EL y devuelve un valor BOO- 
LEAN. 

Primeramente se calcula la direc¬ 
ción del canal para sondear el flag de 
escritura (bit 1 del byte 24 del canal). 
Se utiliza el procedimiento ODD para 
aislar el bit L 

Si la corriente no está abierta o el 
canal no es de Microdrive, se genera 
un error. 

Función EOF (CANAL): 

Devuelve un valor TRUE si se han 
leído todos los caracteres dd archivo 
especificado y FALSE en otro caso. 

El parámetro de entrada es CA- 
NAL:CHANEL y devuelve un valor 
de tipo BOOLEAN. 

Se empieza por calcular la dirección 
del canal y verificar las condiciones de 
error (no abierto o que nó sea de Mí- 
crodrive). Después se carga la variable 
local A con el byte 67 del canal y se 
ejecuta una rutina en código máquina 
para enmascarar todos los bits menos 
el 1. Finalmente, se comprueba el esta¬ 
do de este bit y si el contador de bytes 
leídos es igual al de bytes existente. Sí 
se dan estas condiciones es que la pró¬ 
xima lectura provocará un System Cali 
error (eof). 

Procedimiento ERASE (NOM¬ 
BRE, ORIVE): 

Este procedimiento borra el archivo 
NOMBRE del drive DRIVE. Tiene los 
mismos efectos que la sentencia ERA¬ 
SE del BASIC. 

Los parámetros de entrada son 
NOMBRE: F1LENAME y DRIVE: 
DRIVENUM. 

Se empieza por pokear la dirección 
dd nombre, su longitud y el número de 
drive en las variables del sistemas 
D_STR1, L^STR l y N_STR1. Segui¬ 
damente se ejecuta una rutina en códi¬ 
go máquina (contenida en un procedi¬ 
miento INLINE) borra el archivo (una 


sola vez, aunque esté grabado varias 
veces). 

Procedimiento RESET (NOM¬ 
BRE, CANAL, DRIVE): 

Es el primero de los procedimientos 
complejos, Básicamente comprueba 
que la corriente especificada no sea 
utilizada por otro dispositivo. Si no lo 
está, la cierra si estaba abierta y la rea¬ 
bre para lectura. Si el archivo no existe 
en Microdrive se genera error de fiche¬ 
ro no encontrado. 

Tiene utilidad para retroceder al 
principio de los ficheros de lectura, 
para acabar una escritura y pasar a lec¬ 
tura, etc* 

Los parámetros utilizados son 
NOMBRE: F1LENAME, CANAL: 
CHANELy DRIVE: DRIVENUM. 



as variables 
locales son 
direccionales 
mediante el 
registro IX, 
asignado al 
principio de cada 
bloque interno 


Procedimiento REWRITE 
(NOMBRE, CANAL, DRI- 
VE): 

Se utiliza para crear o reescribir un 
fichero. Comprueba que el canal no 
sea utilizado por otro dispositivo y lo 
cierra en caso de que esté abierto. Se¬ 
guidamente abre el canal y comprueba 
que sea de escritura. En caso de que sea 
de lectura (fichero existente en el Mi¬ 
crodrive) lo cierra y lo borra. Repite el 
proceso hasta que consigue un canal de 
escritura. (Por tanto, borra copias múl¬ 
tiples). 

Procedimiento WRITEF (CA¬ 
NAL, FVAR): 

Utilizado para escribir un dato del 
tipo FILE en la corriente CANAL. 

Los parámetros son CANAL: CA- 
NEL y FVAR; FILE. 

Se comprueba que el canal esté 
abierto, sea de Microdrive y sea de es¬ 
critura. Después se traspasa carácter a 
carácter el dato al Microdrive median¬ 
te el procedimiento COUT. Finalmen¬ 
te se escribe un CHR (13) para hacerlo 
compatible con el BASIC. 


Procedimiento READF (CA¬ 
NAL, FVAR): 

Su utiliza para llenar la variable 
FVAR: FILE con el próximo dato del 
Microdrive especificado. 

Se comprueba que el canal esté 
abierto, sea de Midrodrive y de lectura 
y después se llena la variable mediante 
pokes y funciones CIN. 

Si se intenta leer más allá del fin de 
fichero se generará un system cali error 
(eof). 

El parámetro CANAL: CH ANEL es 
del tipo valor, mientras que el FVAR: 
FILE es dd tipo variable. 


Procedimiento APPEND 
(NOMBRE, CANAL, ORI¬ 
VE): 

Permite añadir información al íinal 
de un fichero existente. 

Los parámetros son NOMBRE: Fl- 
LENAME. CANAL: CHANEL Y 
DRIVE: DRIVENUM. 

Primero se comprueba si el canal 
está abierto y en caso de que no lo esté, 
se abre. Si el canal pertenece a otro dis¬ 
positivo, se genera un error. 

Si el fichero abierto es de escritura, 
la cosa acaba aquí, pero si es de lectu¬ 
ra, se ejecuta una rutina en código má¬ 
quina (contenida en un procedimiento 
INLINE) que busca el último sector 
del archivo y lo prepara para añadir 
datos. El canal pasa a ser de escritura. 


Procedimiento FORMAT 
(NOMBRE, DRIVE): 

Es el primero de los auxiliares. Es 
idéntico al FORMAT «M»del BASIC, 
No se puede utilizar si se tiene abierto 
un canal de Microdrive. 

Se utiliza un curioso sistema de ubi¬ 
car e! código máquina en un array de 
caracteres, ya que es dependiente de ¡a 
posición (no relocalizable) y se calcula 
la dirección de salto cada vez que se 
ejecuta. 

Se empieza por llenar el array de có¬ 
digo y pokear directamente la direc¬ 
ción de la subrutina en él la dirección 
de salto calculada. Después se pokean 
la dirección y la longitud del nombre y 
el número del drive en las variables del 
sistema D_STR1, T.STRI y N_STR i. 
Al final, se ejecuta el código contenido 
en el array. 

Los parámetros utilizados son: 
NOMBRE: FILEN AME y DRIVRE: 
DRIVENUM. 

Procedimiento CAT (DRIVE, 
CANAL): 

Cataloga el Microdrive DRIVE en la 
corriente CANAL. 

Funciona de la misma forma que el 
FORMAT, por lo que no describiré el 
sistema de almacenar el código máqui¬ 
na. ' 






LISTADO 1 

Rutinas de acceso a 
ficheros secuencias en 
Pascal. El compilador 
utilizado es el Hisfot 
HP4TM161, pero 
cualquiera que 
soporte los 
procedimientos 
INLINE, PEEK, 
POKE y USER es 
válido. 


10 ít RUTINAS DE ACCESO A FIC 
HEROS SECUENCIALE5 
20 

30 COMPILADOR HISOFT HP4TM 

161 

40 

50 Autor S. Casab 1 ¿ancas 

60 

70 INSERTAR ANTES EN EL CUERP 
O DE DECLARACIONES 
BO 
90 
100 


110 

const 



120 

DSTRl - 

23766; 


130 

DSTRl1 

= 23767; 


140 

SSTR1 = 

23768? 


150 

LSTR1 = 

23769; 


160 

NSTRl = 

23770; 


170 

TSTR1 = 

23772; 


180 

CHAN8 = 

23631; 


190 

STRMSR 

= *5Cl6; 


200 

curchl 

= 23633; 


210 




220 




230 




240 

TYPE 



250 

FILENAME-ARRAVC1.. 

103 OF 

CHAR; 




260 

DPIVENUM’1.- 8; 


270 

CHANEL 

- 0,,15; 


260 

FILE 

= CULOUIER 

TIPO L 


EGAL 

290 

ZOO 

310 

320 

330 

340 FIN DE LAS DECLARACIONES * 

> 

350 

360 

370 PROCEDURE ERROR <NUM,LQC:I 
NTEGER >! FORWARDí 

380 

390 

400 

410 F'RCCEDURE DREN (NOM;FILENA 
ME ; CANAL ; CHANEL í DRIVE¡DRIVENUM ) ; 
420 VAR DEEP,AUX:INTEGER? 

430 BEGIN 

440 AUK:= 2*CANAL+STRMSRi 
450 IF NÜT íPEEK t AUX , INTEGER) 


- O >THEN ERROR < 1 * 1)s 

460 POKE < DSTR1„CHR ( DRIVE >); 

470 POKE (DSTRl1,CHR(O) 1 ; 

480 POKE ÍLSTRl^H^l; 

490 POKE (NSTR1,SIZE ÍNQM)); 

500 POKE < TSTR 1 ,ADOR<NOM) ); 

510 INLINE <*FD ? - fc 21 B *3A í *5C,*D 
9,*E5,*D9,*DD f *E5,*CF,* 22 ,*E5, *D 
D,*CB.4,*BE, 

520 *AF,*CF. *21,-E1,*DD**Ei, 

-DD,*74,*FB,*DD,*75,*FA,*D9,*E1, 
*D9>; 

530 POKE < AUX * DESP); 

540 END; Í*DE OPENfí 

550 

560 

570 

590 

590 

600 FUNCT10N LECOESCtCANAL:CHA 
NEL) i BODLEAN; 

610 VAR BASE,AUX¡INTEGERs 
620 BEGIN 

630 BASE;- 2*CANAL+STRMSR; 

640 AUX:= PEEKÍCHANS*INTEGER)+ 
PEEK(BASE,INTEGER >-1; 

650 IF (PEEK(BASE,INTEGERí=0> 
THEN ERROR (2,2); 

660 IF íPEEK(AUX+4,CHARí<> T PT > 
THEN ERROR (3.2); 

670 LECOESCs= ODDCORO(PEEKíAUX 
+24,CHARO )); 

680 END; (*DE LECOESC*) 

690 

700 

710 

720 

730 

740 FUNCTIDN CIN(CANAL:CHANEL) 

:CHAR; 

750 VAR AUX;CHAR; 

760 BEGIN 


770 

INLINE 

(*FD,*21, 

, *3A, 

*5C 


*DD,*7E 

,2 t *CD,I, 

* 1 6 j 

*CD 

*15, 

*F5,*3E 

,2, 



780 

*CD t 1 

,* 16,*F1, 

^D D, 

*E 1 

*77, 

*FB> ; 





790 CIN? =AUX ; 

BOO END? í *DE CIN*) 

910 

820 

030 

840 

850 

860 PROCEDURE COUT i CANAL:CHAN 
ELí CAR: CHAFO 5 

870 VAR AUX, BASE, Al: INTEGERs 
BOO PROCEDURE SF'DUT í C ; CHAR > ; 
890, BEGIN 

900 INLINE (*FD T *21,*3A, 

*50,*DD,“7E,2,*D7 >; 

910 END;(IDE SPÜUT*) 

920 BEGIN 

930 BASE;» PEEK(2ÍCANAL+STRMSR 
. INTEGER) 

940 BASE:= BASE+PEEK (CHANS,IN 
TEGERJ-l; 

950 Al : = PEEK ÍCURCHL.INTEGER); 
960 POKE <CURCHL,BASE>: 

970 SF’GUT (CAR) ; 

980 POKE (CURCHL, Al) ; 

990 END; Í*DE COUTf) 

1000 

1010 

1020 

1030 

1040 

1050 FUNCTIQN EOF íCANAL:CHANEL 
>:BODLEAN; 

1060 VAR A:CHAR; 

1070 AUX,BASE:INTEGER; 

1080 BEGIN 

1090 BASE; = PEEK Í2*CANAL+STRM5 
R,INTEGER); 


1100 IF (BASE-O) THEN ERROR í2, 

3) ; 

1110 BASES" BASE+PEEK (CHANS, 1NT 
EGERJ-1; 

1120 IF < PEEK Í BASE+4,CHAR)< > * M J 
> THEN ERROR (3,3>; 

1130 As - PEEK í BASE+67,CHAR); 
1140 INLINE (*DD,*7Ep*FB i *E6,2 i 
*DD.*77,*FE); 

1150 EDF:= tÍA O CHR (Oí ) AND 
(PEEKíBASE+11,INTEGER ) =PEEK(BASE 
+69,INTEGER))): 

1160 END: Í*DE EOF*) 

1170 

neo 

1190 
1200 
1210 

1220 PROCEDURE GLOSE (CANAL?CHA 
NELÍ ; 

1230 VAR AUX,BASE:INTEGER; 

1240 BEGIN 

1250 BASE ? =PEEK(2* CANAL+STRMSR, 
INTEGER); 

1260 IF tBASE-OÍ THEN ERROR (2 

.4>¡ 

1270 AUX i -BABE+FEEK (CHANS,INTE 
GEFU- 1 ; 

1280 IF íPEEKÍAUX+4,CHAR)O^M') 
THEN ERROR (3,4); 

1290 INLINE í*PD,*2Í,*3A.*5C,*D 
D,*E5,*DD,* 66 ,*FB,*DD,* 6 E,*FA,*E 
5,*DD,*E 1 , 

1300 *FD,*CB,*7C* *BE,*CF,*23, 
^FD,*36,*7C,0 I *DD,*E1); 

1310 POKE (BASE,O); 

1320 END; <* DE CLOSE *1 

1330 

1340 

1350 

1360 

1370 

1380 PROCEDURE ERASE (NOM:FILEN 
AME; DRIVEiDR1VENUM> 5 
1390 BEGIN 

1400 POKE (DSTRl,CHR(DPIVEí) ; 
1410 POKE (DSTRl 1 ,CHR(O)í; 

1420 POKE ÍL5TRl, j rr); 

1430 POKE (NSTR 1 ,SIZE(NOM)); 
1440 F'OKE ÍTSTRl.ADDR(NGM) ) ; 
1450 INLINE (*FD,*21,*3A,*5C f ~D 
9,*E5,*D9,*DD,*E5,*CF,*24,*DD,*E 
1,*D9,*E1 f *D9); 

1460 END: í* DE ERASE*) 

1470 

1480 

1490 

1500 

1510 

1520 PROCEDURE RESET (NOM:FILEN 
AME; CANAL s CHANEL ; DR I VE ; DR I VENUM > 

1530 BEGIN 

1540 IF ÍPEEK<2*CANAL+STRMSR,IN 
TEGER)< >0> THEN 
1550 BEGIN 

1560 IF (PEEK (PEEK(2 *CANAL+S 
TRM5R,INTEGER)+PEEKECHANS,ÍNTEGE 
R)+3,CHAR)O M T ) 

1570 THEN ERROR (3,5); 

15B0 CLOSE (CANAL); 

1590 END; C * 1 THEN*) 

1600 DPE N (NOM,CANAL,DRIVE 5; 
1610 IF LECOESC (CANAL) THEN ER 
ROR (5.5); 

1620 END; (*DE RESET*> 

1630 

1640 

1650 

1660 

1670 

1680 PROCEDURE REWRITE ÍN0M:FTL 
ENAME; CANAL:CHANEL; ORIVE:DRIVE 
NUM> ; 

















1690 LABEL U 
1700 BEGIN 

1710 IF (PEEK (CANAL*2+STRMSR, 1 
NTEGER)<>0> THEN 
1720 BEGIN 

1730 IF í PEEK (PEEK <CANALÍ2+5T 
RPlSR, INTEGER5+FEEK (CHAN5, l NTEGER 
) +3 s CHAR) O f í 

1740 THEN ERROR (3,6)? 

1750 CLOSE (CANAL); 

1760 ERASE (NOM,ORIVE); 

1770 END; í* 1 THEN4 í 

1700 1:OREN (NOM,CANAL , DRIVE); 
1790 IF NÜT LECOESC (CANAL) THE 
IM 

1800 BEGIN 

101Ü GLOSE (CANAL); 

1820 ERASE (NQM^ DRI VE) ; 

IB 30 GOTO 1; 

1840 END; <* DE THEN*) 

1B50 END; í *DE REWRITE*) 

1860 

1B70 

1800 

1690 

1900 

1910 PROCEDURE WRITEF íCANAL: OH 
ANEL; FVAR¡FILE); 

1920 VAR BASE;INTEGER; 

1930 BEGIN 

1940 IF NOT LECOESC íCANAL) THE 
H ERROR (7,7); 

1950 BASE:=PEEK(CANAL12+STRMBR, 
INTEGER); 

1960 IF ÍBASE=ú> THEN ERROR (2, 
71; 

1970 BASE;“ BASE+PEEK (CHAN5,IN 
TÉGER5-11 

1980 IF (PEEK IBASE+4*CHAR)< VM 
’í THEN ERROR (3^7); 

1990 FQR BASEí- ADDR ÍFVAR5 TÚ 
ADDRíFVAR)+SIZE(FVAR> DO 
2000 CQUT (CANAL.PEEK (BASE t CHA 
R)) i 

2010 COUT (CAMAL,CHR(135>; 

2020 END; í *0£ WRITEF*) 

20B0 

2090 

2100 

2110 

2120 

2130 PROCEDURE READF (CANAL;CHA 
MELí VAR FVAR:FILE>; 

2140 VAR BASE;tNTEGER; 

2150 AsCHAR; 

2160 BEGIN 

2170 IF LECOESC (CANAL) THEN ER 
ROR (6,05; 

21B0 BASE: = PEEK í2*CANAL+STPJ15 
R s INTEGER); 

2190 IF (BASELO5 THEN ERROR (2, 

8h 

2200 IF (PEEK(BASE+REEK(CHANS,I 
NTEGER) +3,CHAR) 0*11’ ) THEN ERRDR 
(3,BJ ; 

2210 FOR BASE:= ADDR (FVAR) Tü 
ADDR (FVAR> +SIZE (FVAR) DO 
2220 PÜKE (BASE,CIN (CANAL)); 
2230 A: = CIN (CANAL); 

2240 END; (IDE READF*) 

2250 

2260 

2270 

2290 

2290 

2300 PROCEDURE FORNAT (NOM:FILE 
ÑAME; DRIVE: DRIVENUM ) ; 

2310 VAR CODE : ARRAY El* ,333 
OF CHAR; 

2320 BEGIN 

2330 CODEC1T:= CHR<*21); 

CDDE14 1 :=■ CHR(*FD)j 
2340 CQDE C51:= CHR(*21); 

CODEC63:= CHR Í*3A); 


2350 CODEE73:- CHRÍ A 5C); 

CODEC 0 T r = CHR(^DD); 

2360 CODEC93:” CHR(*E5); 

CODEE10]l— CHRí*D9); 

2370 CODEE113:- CHRf*E5); 

CODEC 123 s - CHR (-"09); 

2380 CODEC133:= CHR f *ED); 

CODEC143;= CHR(*63>; 

2390 CQDEC153;= CHR(*ED5; 

CQDEC 163;= CHR (*50; 

2400 CODEC173:= CHRí~CF 5 ; 

CODEC183;= CHR<*32>; 

2410 CQDEC193;= CHR(*D9)s 
CODEC 203;= CHR(*E 1 >; 

2420 C0DEC213:= CHRí*D9í; 

CQDEC223:= CHRÍ*DD>; 

2430 CODEC233:= CHR(*E 1 I; 

CODEC 24 3;= CHR(*095* 

2440 CODEE253:■ CHR(* 2 A); 

CQDEC 26]s * CHR < *EB>; 

2450 CODEC27 3 s ■= CHR(*04)| 

CDDE C 2B3;=■ CHR(*23)* 

2460 CODEC293;- CHR(*5EÍ; 

CQDEC 301:* CHR í*23); 

2470 CODEC313:- CHRí*56); 

CODEC323:= CHR<*EB); 

2480 CODEC 33 3;= CHR(*E9); 

2490 POKE (ADDR(CQDEC23) p ADDR£C 
ODEC 253 í >; 

2500 PQKE (DSTR1 r CHR (DPIVE)); P 
OKE(DSTR11 f CHR í O 5 >; 

2510 POKE ÍLSTR1, ’M ’); POKEÍNBT 
R1,SIIE(N0M ))t 

2520 POKE (TSTR1 ? ADDR(NOM 5 ); ÜS 
ER (ADDR(CDDE E 1 3 í ) ; 

2530 END; í* DE FORMAT *} 

2540 
2550 
2560 
2570 
25 BO 

2590 PROCEDURE CAT (DRI VE: DRI VE 
NÜN; CANAL:CHANEL5; 

2600 VAR CODE : ARRAY C1..333 
□F CHAR; 

2610 BEGIN 

2620 CODEC13:= CHRí*21); 

CQDEC 4]:= CHR(*FD)s 
2630 CQDE E 5 ] ; = CHR(*21); 

CQDEC 6 3:= CHR(*3A); 

2640 CODEC7]s- CHR(*5C>; 

CQDEC 0 3:= CHR(*DD); 

2650 CODEC 93:= CHRí*E5); 

CQDEC103;= CHR(*D9); 

2660 CQDECU3:= CBR(*E5?; 

CODEC123:= CHR(*D9); 

2670 CQDEC133;= CHR(*ED); 

CODEC143;= CHR(*635; 

2680 CODEC153:= CHRí*ED): 

CQDEC163;= CHR(*50; 

2690 CODEC17];= CHR(*CF>; 

CODEC1B3:= CHR(*32); 

2700 CODEC19];= CHR(*D95; 

CODEC203;= CHR(*E1); 

2710 CODEC21 1 := CHR(*D9>; 

CODEC223:= CHR Í*DD);, 

2720 CODEC233;= CHR(*E 1 ): 

CODEC243:“ CHRf*C9í; 

2730 C0DEC251:= CHR(*2A); 

CODEC263:= CHR£*BO); 

2740 CODEC273:= CHR(*04); 

CODEC283:= CHftC*23>; 

2750 CDDEC293 = — CHR(*5E>: 

CDDEC303:- QHR(*23)s 
2760 CODEC313;= CHR(*56 >5 

CODEC323:= CHR(*E 8 )j 
2770 CQDEC333 i= QHR1-E9 ) ; 

2780 POKE (ADDR(C0DEC23),ADDR£C 
ODE C253)); 

2790 POKE (DSTRUCHR(ORIVE)5; P 
OKE (DSTR 11, CHR (0) ) ; 

2 B 00 POKE ÍSSTRU CHR (CANAL) ) l P 
OKE (LSTR1,'NM; 


2810 USER (ADDR (CODEC 1 35 ) ; 

2020 END; (* DE CAT*) 

2B30 

2840 

2050 

2060 

2870 

2080 PROCEDURE APP'END (NOM: FILE 
ÑAME; CANAL:CHANEL; ORIVE:DRIVEN 
UM5 ; 

2890 VAR BASE:INTEGER; 

2900 BEGIN 

2910 BASE: = P'EEK < 2*CANAL+5TRMS 
R*INTEGER); 

2920 IF (BASE =0) THEN OREN (NO 
H,CANAL,DP I VE); 

2930 BASE:= PEEK (2*CANAL+STRH5 
R,INTEGER)+PEEK (CHANS,INTEGER)- 
i; 


2940 IF (PEEK ÍBASE+4,CHAR) <> 

) THEN ERROR (3,9); 

2950 POKE í SSTRl.CHR (CANAL) ) ; 
2960 I NLINE ( *FD,*21,*3A T *5C,*D 


D,*E5 t * 

D9„* 


□ 9,* 

3A + *D8, *5C, 

2970 


*CD 

i L * 

16,*DD,*2A+ 

1,*5C,* 

BD, * 

CB,* 

10,~ 

46, 

29 BO 


*20 

j *57 

t *DD,*CB,*4 

*4E.*20 


CF, * 

25,* 

18,*F6,*AF, 

2990 


*CF 

, *21 

, *DD, *6E É *4! 

*DD,*66 

,‘46 

, *DD 

» *75 

,*B,*DD,*7 4 

3000 


*c. 

*11, 

0,2,*E5,*A7 

EDj *52, 

*28, 

*10, 

*DD f 

*36,0, 

3010 


*DD 

f *36 

i *C,0,*DD S * 


*DD, 

*36, 

*46, 

0,*DD,*CB f 

3020 


*43 

,*BE 

, *DD, *7E, *1* 

*CF,*21 

, *DD 

,*7E 

,*29 

, B,*DD,*7E, 

3030 



*F5, 

Q, *DD* *77, *1 

*CF,*2A 

,‘AF 

, *CF 

,*21 

,*F1,*DD, 

3040 


-77 

**D, 

*E1,*DD,*75, 

B f *DD,* 

74, *i 

C„'-DD,"CB,“18,-Cé 1 , 

3050 


*D9 

,*E1 

, *D9,*DD,*E 


) i 


3060 END; <* DE APPEND*) 

3070 

3080 

3090 

3100 

31 ÍO 


3120 

PROCEDURE 

ERROR ; 

(* DECLA 

RADA FORUIARD EN 

PRTNCIPm *) 

3130 

BEGIN 



3140 

PA&E; 



3150 

WRITELN; 



3160 

CASE NUM OF 


3170 

1sWRITE 

( 1 ERROR: 

CORRENTE 

YA ABIERTA EN " 

); 


3180 

2:WRI TE 

(* ERROR: 

CORRIENT 

E NG ABIERTA EN 

’>; 


3190 

3tNRITE 

< * Error: 

CANAL NO 

NICRODR1VE EN ' 

); 


3200 

4:WRITE 

< 1 ERROR: 

CANAL ND 

ACCESIBLE EN "l 

* 

f 


3210 

5:WRITE 

<*ERROR: 

FICHERO 

NG ENCONTRADO EN 



3220 

6:WRITE 

( p ERROR: 

FICHERO 

DE ESCRITURA EN 

T ) ; 


3230 

7:WRI TE 

(’ERROR: 

FICCHERO 

DE LECTURA EN ’ 

> 


3240 

END; (* DE 

CASE t> 


3250 

CASE LOC OF 


3260 

1 :WRITE 

COPEN ' 

>; 

3270 

2:WRITE 

< ' LECOESC ’5; 

3280 

3:WRITE 

t * EOF T ) 

* 

3290 

4:WRITE 

{*CLQSE 


3300 

5:WRITE 

í p RESET 

’ >; 

3310 

6:WRITE 

REWRITE 7 ); 

3320 

7;WRI TE 

í f WRITEF 

M ; 

3330 

8:WRITE 

í # READF 

* >; 

3340 

9:WRITE 

í r APPEND 

*) 

3350 

END; (* DE 

CASE 1) 


3360 

WRlTELNi 



3370 

HALT; 



3380 

END; (* DE 

ERROR *) 




















I compilador 
utiliza el 
registro IY, por 
lo que debe ser 
devuelto a su 
valor original 
antes de intentar 
cualquier llamada 
a la ROM 

Se pokean las variables del sistema 
D_STR 1 y S_STR 1 los valores del dri- 
ve a catalogar y el canal de salida y se 
ejecuta el código contenido en el array. 

No debe estar abierto ningún canal 
de Microdrive ai invocar CAT. Las co¬ 
rrientes válidas son 1, 2 (pantalla) y 3 
(impresora). 

Procedimiento ERROR (NUM. 
LOC): 

Es el encargado de mostrar el tipo y 
la localización de los errores en tiempo 
de ejecución. 

Los parámetros son del tipo INTE- 
GER, y contienen NUM el tipo de 
error y LOC la sentencia donde se ha 
producido. 

Se declara FORWARD en el princi¬ 
pio para que pueda ser utilizada por 
las otras rutinas, pero se escribe al final 
para que pueda ser alargada por el 
usuario para añadir más tipos de error. 

La explicación de las rutinas en có¬ 
digo máquina, requiere una previa ex¬ 
plicación de cómo trabaja el compila¬ 
dor en el almacenamiento de variables. 

Las variaciones globales, se guardan 
en la parte alta de la pila de ejecución y 
hacia abajo, en el mismo orden en que 
son declaradas. Ocupan tantos bytes 
como el total de sus componentes. 

Las variables locales son direcciona- 
das mediante el registro IX, que está 
asignado al principio de cada bloque 
interno. Por tanto, 1X-4 apunta al 
principio del bloque de variables. Es¬ 
tas se encuentran desde aquí hacia aba¬ 
jo en orden de declaración. Por ejem¬ 
plo, si la primera variable declarada es 
AUX: INTEGER; el hyte alto se en^ 
centrará en {IX-5) y el bajo en (IX-ó). 

Los parámetros valor son direccio- 
nados también por el registro IX, pero 
hacia arriba. Cuando antes es declara¬ 
do, más alta en la memoria estará su 
posición. La dirección más baja está en 
(IX+2). 

Los parámetros variables son trata¬ 
dos como los parámetros valor, pero 
siempre tienen asignados 2 bytes que 
contienen su dirección en la pila de 
ejecución, 

Los valores devueltos se sitúan a 


continuación de los parámetros (valor 
o variable). También direccíonados 
medíante IX. 

Las funciones predefinidas ADDR 
(v) y S1ZE (v), dan valores correctores 
en todos los casos excepto en los valo¬ 
res devueltos. 

La llamada al código máquina se 
puede realizar de dos formas, mediante 
un procedimiento USER (dirección), 
que llama a una rutina fija en la me¬ 
moria acabada en RETURN. y JNLI- 
NE (código), que incluye el código en 
el objeto generado por el compilador. 

Debido al funcionamiento del siste¬ 
ma operativo del Spectrum, debe te¬ 
nerse cuidado con el contenido del re¬ 
gistro IY, utilizado para direccionar 
las variables del sistema. El compila¬ 
dor lo utiliza, por lo que debe ser pues¬ 
to a su valor adecuado antes de inten¬ 
tar ejecutar cualquier llamada a la 
ROM. 

Estas rutinas funcionan con cual¬ 
quier versión de la ROM del ¡nterface 
L que aprovecha que el analizador sin¬ 
táctico está localizado en la misma po¬ 
sición en ambas versiones. Las direc¬ 
ciones absolutas de algunas rutinas se 
extraen del analizador sintáctico una 
vez paginada la ROM. 

Debido a la poca memoria que que¬ 
da libre por debajo del Ejecutor, sola¬ 
mente se puede tener abierto un canal 
de microdrive a la vez. Se debe tener 
cuidado con las instrucciones CAT, 
TGUT, TIN o FORMAT porque uti¬ 
lizan un canal M y si ya hay uno en 
existencia puede bloquearse la máqui¬ 
na. 

Los datos se graban con igual repre¬ 
sentación que la que tienen en la me¬ 
moria, seguidos de un carácter CR 
(chr(13)) para compalibilizarlos con el 
BASIC. Los enteros ocupando dos by¬ 
tes, los reales cinco bytes y los regis¬ 
tros, arrays, etc. la suma total def ta¬ 
maño de sus componentes. La separa¬ 
ción entre campos de los registros, es 
posicional en el orden en que se han 
declarado. 

Los enteros se graban en forma de 
caracteres según formato Intel (tsb, 
msb), y los reales, en caracteres según 
formato de coma flotante propia del 
Spectrum. Los caracteres, se graban en 
ASCII y el tipo BOGLEAN, en forma 
chr (1) para TRUE y CHR (0) para 
FALSE. 

Los procedimientos que puedan mo¬ 
dificar el archivo en el Microdrive. 
REWRÍTE, ERASE, FORMAT, 
WRITEF.,., comprueban la protec¬ 
ción contra escritura, y en caso de que 
el Microdrive esté protegido, para el 
proceso con mensaje de error System 
Cali Error. 

Como dato curioso, cabe destacar 
que los archivos creados con el proce¬ 
dimiento TOUT, son del tipo PR1NT. 
y se pueden leer mediante estas ruti¬ 
nas. Sanli Casa blancas 


LISTADO 2 

Rutinas en 
Assembler. Se 
proporciona 
únicamente como 
documentación, pues 
el código objeto está 
incluido en el 
programa Pascal. 

1 jRUTINAS EN ASSEMBLER 

2 

3 

4 íRUTINA DE DPEN 

5 

6 OREN LD IY,“5CTA 3 PDN 
ER IY EN VARIABLES DEL SISTEMA 


B 


EXX 



9 


PUSH 

HL 

; SALV 

AR REGISTROS 



10 


EXX 



11 


PUSH 

IX 


12 


RST 



13 


DEFB 

^22 

v ABRI 

R CANAL 





14 


PUSH 

HL 

; GUAR 

DAR DESPLAZAMIENTO 


15 


XOR 

A 


16 


RST 



17 


DEFB 

*2 j_ 

; PARA 

R MOTOR 





IB 


RES 

7, ÍIX+4) 

; HACE 

R CANAL 

PERMANENTE 


19 


POP 

HL 


20 


POP 

IX 

: RECU 

PERAR DES. 

Y POINTER PASCAL 

21 


LD 

(IX- 6 ) f L 

; PONE 

R DESE. 

EN 

VARIABLE PASCAL 


22 


LD 

(1X-5) t H 


23 


EXX 



24 


POP 

HL 


25 


EXX 

% RECUPERAR REG 

ISTROS 





26 í 

HD 

HAY RETURN: ES PROCED 


IMIENTO INLINE 

27 

29 

29 

30 íRUTINA DE CLOSE 
TI 


32 

CLOSE LD 

IY ? ^5C3A í PON 

ER IY 

EN VARIABLES 

! SISTEMA 

73 

PUSH 

IX : SALVAR PU 

NTERO 

PASACL 


34 

L'D 

H, íIX-5) ; CAR 

GAR DIR. CANAL DESDE VARIABLE PA 

SCAL 



35 

LD 

L, (IX— 6 ) 

36 

PUSH 

HL 

37 

POP 

IX ¡e CARGARLO 

EN IX 



30 

RES _ 

1, 11Y+124> s I 

NDICAR 

I QUE NO ES OLEARA 

39 

RST 












40 

A NAL 

41 

DNER Q EN FLAG5 3 


DEFB *23 ; CERRAR C 
LD <IY+I24i,0 ; P 


93 

94 


LD 

LD 


L, íIX+691 
H,ÍIX+7Q) ? CA 


RGAR NÜM* BYTES QUE CONTIENE 


42 

43 


POP 1X 

NO HAY RÉTURs ES PROCEDI 


95 

96 


LD 

LD 


< IX+ll),L 
í í X +12) ,H ; HA 


CER APUNTADOR = FINAL REG¬ 


IMIENTO INLINE 
44 
40 

46 

47 ;RUTINA DE INPUT 
4B 

49 CIN LD IY„*5C3A - PON 

ER IV EN VARIABLES DEL SISTEMA 

50 PUSH IX ; SALVAR FU 
NTERG PASCAL 

51 LD A,(IX+2) ¡ CAR 
BAR NUMERO CORRIENTE DESDE PASCA 
L 

CALL 


97 


SI FINAL = 512 


LD DE,512 ; MIRAR 


98 

PUSH 

HL ; 

SALVAR AP 

UNTADOR 

99 

AND 

A 


100 

SBC 

HL, DE 

í COMPRO 

VARLO 

101 

JR 

I , PLE 

? SALTAR 


ESTO SI LLENO 


102 

103 

104 


LD 

LD 

LD 


íIX+11} f O 
fIX + 12 ),0 
íIX+69),O 


EPARAR BORRADO DE SECTOR 


PR 


52 

CORRIENTE 

53 

UN CARAC T ER 

54 

aracter 

55 

RR:TENTE 2 

56 

57 

58 


‘1601 


ABRIR 


LD ÍIX+70) ? 0 


CALL M5EÓ ; ENTRAR 
PUSH AF í GUARDAR C 


LD 


A,2 


ABRIR C0 


CALL *1601 
POP AF 

POP IX ? RECUPERAR 


105 

106 PLE RES 1,(1X+67) ; QU 

ITAR FLAG DE EOF 

107 LD A t íIX+25> * BU 

SCAR NUM- M I CRODR'I VE 

IOS RST *0 

109 DEFB *21 ; PONER MO 

TDR EN MARCHA 

110 LD A,ÍIX+41) x BU 

SCAF NUM. SECT. FISICO 


CARACTER Y PUNTERO 

59 LD ín-5),ñ - PON 
EF: CARACTER EN VARIABLE PASCAL 

60 ; ND HAV RETURN: PROCEDIMI 
ENTO INLINE 

61 
62 
63 


EX 


LD 


1 11 
ARLO 
1 12 

SCAR NUM 

113 

114 EX 
ERAR SEC- FISICO 

115 LD 
NERLO EN APUNT. 


AF« AF 7 


GUARO 


BU 


64 

S RUTINA DE OUTF'UT 

116 

RST 

65 


117 

DEFB 

66 

COUT LD I Y., *5C3A ; PON 

IR SECTOR 


EF TY 

EN VARIABLES DEL SISTEMA 

1 IB 

XUR 

¿7 

LD A, íIX +2 ) j CAR 

119 

F'ST 

Gft c - A 

CON CARACTER A SACAR 

120 

DEFE 

68 

RST *10 : LLAMAR A 

TÜR 


OUTPIJT DE LA ROM 

121 

POP 


A, (I.X+13) 

SECT. LUE ICO 

PUSH AF ; GUARDARLO 
AF,AF j j RECUP 

(IX+13>,A : PO 


REE5CRIB 


PARAR MD 


69 : NO HAY RETURN: FPDCEDJMI 
ENTO INLINE 

70 

71 

72 

73 tRUTINA DE APPEMD 

74 

75 APFEND LD IY,*5C3ñ : PON 
EF' IY EN VARIABLES DEL SISTEMA 


POP AF 5 RECUPERAR 
SECTOR LOGICO 

122 LD 
NERLO EN SU SITIO 

123 POP 
CANTIDAD BY^ES 


írx+13í,A ; PU 


RECUPERAR 


CIX+1i >,L 
'IX*Í2>.H 


PO 


PO 


7 1 

5TETROS 
77 
73 
79 


PUSH tx 


SALVAR RE 


EX X 

PUSH M.L 

ex y 

LD A . (237 


CA 


F:S A F N 'JM .CORRI EN T E 

SI CALL *1601 

02 LD IX,{236331 

QNER DIRECCION EN TV 


124 LD 

125 LD 
NER EM BU SITIO 

126 FIN SET O, 'IX+24> 

NER Q EN h'LAGST 

127 EX X 

128 POP HL 

129 FXX 

130 POP IX : RECUPERAR 

REGISTROS 

131 : NO HAY RETURN= PROCEDÍM] 
ENTO INLINE 

132 

133 


03 BIT O,Í3X+24Í ; MI 

SAP ESCRITURA 

£4 JR NZ.FTN í SI ES 

D. PASAR AL FINAL 

85 BUCLE EIT K ÍIX+67) - MI 
PAR EOF 

B 6 JR Z ,FINÉUC ; SI 

EDF ACABAR BUCLE 


87 

RST 

*8 


8 B 

DEFB 

*25 ; 

LEER SEC 

TÜR SIGUIENTE 



H9 

R 

JR 

BUCLE 

; REPETI 

90 FINBUC 

XCR 

A 


91 

RST 

*0 


92 

DEFB 

^21 ; 

PARAR MO 


TGR 


134 

175 ¡RUTINA DE ERASE 
17-6 

137 ERASE LD IY,*5C3A 

135 EXX ; PONER IY EN 
VARIABLES DEL SISTEMA 


139 

140 

PUSH 

EXX 

HL 


141 

PUSH 

IX * 

SALVAR RE 

GISTROS 

142 

RST 

*B 


143 

DEFB 

*24 : 

; BORRAR A 

RCHIVO 

1 44 

145 

POP 

EXX 

IX 


1 46 

FOF' 

HL ; 

RECUPERAR 

REGISTRON 

147 

EXX 




140 $ NO HAY RETURN: PROCEDIMI 
ENTP INLINE 

149 

150 

151 

152 

153 i RUTINA DE FDRMAT 

154 

155 FORtIAT DEFB *21 * PRIMERBl 
T INSTRUCC. LD HL 

156 DEFS 2 ; ESPACIO PA 
RA RELOCALIZACION 

157 LD IY,*5C3A ; PON 
ER IY EN VARIABLES DEL SISTEMA 


15S 

PUSH IX 

159 

EXX 

160 

PUSH HL 

161 

EXX ; SALVAR REGIS 

TROS 

162 

LD (■‘‘5CED) , HL ; C 

ARGAR HD_11 

CON DIRECCION FORH 1 

CALCULADA 

163 

RST *0 

164 

DEFE *32 ¡ PAGINAR 

ROM Y SALTAR A SUBRUTZNA FQRM1 

165 

EXX 

166 

POP HL 

167 

EXX 

168 

POP TX j RECUPERAR 

REGISTROS 

169 

RET ; ESTA RUTINA 

ESTA LOCALIZADA EN UN ARRAY 

170 FGRM1 

LD HL, <*4EB> ; DI 

RECCIGN ANALIZADOR SINTACTICO DE 

FORMAT 

171 

INC HL 

172 

LD E, (HL > 

173 

IMC HL 

174 

LD D,(HL) - BUSCA 

R DIRECCION 

EN ROM 3^: 

175 

EX DE,HL 

176 

JP i HL )■ ; E JECUTA 

R FDRMAT 

177 

173 

179 

ISO ¡RUTINA DE CAT 

L3í 

1S2 CAT 

DEFB *21 í PRIMERBI 

T INSTRUCC. 

LD HL 

IB3 

DEF5 2 i ESPACIO PA 

RA F'ELQCALIZACION 

104 

LD IY,*5C3A ; PON 

ER IY EN VARIABLES DEL SISTEMA 

185 

PUSH IX 

136 

EXX 

1B7 

FU 5 H HL 

108 

EXX s SALVAR REGIS 

TROS 

189 

LD Í*5CED),HL ; C 

ARGAR HD_11 

CON DIRECCION CATÍ C 

ALCULADA 

190 

RST *B 

191 

DEFB *32 : PAGINAR 

ROM y saltar 

A SUBRUTINA CATl 

192 

EXX 

193 

POP HL 

194 

EXX 

195 

POP IX : RECUPERAR 

REGISTROS 

196 

RET ; ESTA RUTINA 


ESTA LOCALIZADA EN UN ARRAY 

197 CAT1 LD HL, í*4GB> : DI 
RECCIQN ANALIZADOR SINTACTICO DE 


CAT 



190 

INC 

HL 



199 

LD 

E, íHL) 



200 

INC 

HL 



201 

LD 

D, (HL í 

J BUSCA 

R 

DIRECCION 

EN ROM BK 



202 

EX 

DE, HL 



203 

JP 

í HL J ; 

EJECUTA 

R 

CAT 







ORDENADOR] 


■ serie cpc 


AMSTRAD CPC 464 


AMSTRAD CPC 6128 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A - 64K RAM 
ampliadles - 32K ROM ampliadles 

• TECLADO • Teclado profesional con 
74 ledas en 3 bloques - Hasta 32 tedas 
programadles - Teclado redefinibie 

• PANTALLA • Monitor RGB verde (12”) 
o color (14") 


I Normal 

Alta Res. 

Multicolor 

Col X lineas 

40X25 

80X25 

20x25 

Colores 

' 4~de 27 

2 de 21 

16 de 21 

Puntos 

320 x 200 

640X 200 

160x2 


- Se pueden definir hasta 8 ventanas de 
texto y 1 de gráficos • SONIDO 

• 3 canales de 8 odavas moduladas 
independientemente - Altavoz interno 
regulable • Salida estéreo • BASIC 

• Locomotive BASIC ampliado en ROM - 
Incluye los comandos AFTER y EVERY 
para control de interrupciones 


CASSETTE • Cassette incorporada con 
velocidad de grabación (1 ó 2 Kbaudios) 
controlada desde Basic • CONECTORES 

• Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centronics, salida 
estéreo, joystlck, lápiz óptico, etc. 

• SUMINISTRO • Ordenador con monitor 
verde o color - 8 cassettes con 
programas - Libro "Guía de Referencia 
BASIC para el programador'’ - Manual en 
castellano - Garantía Oficial AMSTRAD 
ESPAÑA, 


TODO POR 

59.900 Pts. (monitor verde) 


90,900 Pts. (monitor color) 


UNIDAD DE DISCO •Unidad 

incorporada para disco de 3" con 180K 
por cara • SISTEMAS OPERATIVOS 

• AMSDOS, CP M 2,2, CP M Plus (3.0) 

• CONECTORES • Bus PCB multiuso, 
paralelo Centronics, cassette exterior, 

2. a Unidad de Disco, salida estéreo, 
joysticks, lápiz óptico, etc. 

• SUMINISTRO • Ordenador con monitor 
verde o color - Disco con CP M 2.2 y 
lenguaje DR, LOGO • Disco con CP M 
Plus y utilidades - Disco con 6 programas 
de obsequio - Manual en castellano - 
Garantía Oficial AMSTRAD ESPAÑA. 


TODO POR 
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AMSTRAD PCW 8256 


Centronics * SUMINISTRO • Ordenador 
completo con teclado, pantalla, Unidad 
de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CP M 
Plus, Mallard, BASIC, DR.LOGO y diversas 
utilidades - Manuales en castellano - 
Garantía Oficial AMSTRAD ESPAÑA, 


' 

UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z8ÜA - 256K RAM de 
las que 112K se utilizan como disco RAM 

• TECLADO * Teclado profesional en 
castellano (ñ, acento.,,) de 82 teclas 

»PANTALLA • Monitor verde de alta 
resolución - 90 columnas X 32 líneas de 
texto • UNIDAD DE DISCO • Disco de 
3" y 173K por cara - Opcionalmente, 
l ¡ Unidad de Disco de 1 Mbyte integrable 
•SISTEMA OPERATIVO • CP M Plus 
de Digital Research • IMPRESORA • 

Alta calidad (NLQ) a 20 c,p.s. - Calidad 
estándar a 90 c.p.s. - Papel continuo u 
hojas sueltas - Alineación automática del 
papel - Caracteres normales, 
comprimidos, expandidos, control del . 
paso de letra (normal, cursiva, negrita, 
subíndices, superíndices, subrayado,etc).' 

• OPCIONES * Kit de Ampliación a 
312K RAM y 2. 3 Unidad de Disco - 
Interface Serie RS 232C y paralelo. 


Existe también la versión PCW 8512 con 
512K RAM y la I a U nidad de Disco de 
1 Mbyte incorporada lWI 
* El PCW 8256 puede utilizarse como 
terminal y en comunicaciones. 

El I.V.A. no está incluido en los precios. 

NOTA: Es muy importante verificar la garantía del 
aparato ya que sólo AMSTRAD ESPAÑA puede 
garantizarle la ordenada reparación y sobre todo 
materiales de repuesto oficiales (Monitor, 
ordenador, cassette o unidades de discos). 




Avda. del Mediterráneo, 9. Tels. 433 45 48 - 433 48 76. 
28C87 MADRID 

Delegación Cataluña: Tarragona, 110 ■ Tel. 325 10 58. 
08015 BARCELONA 


uos mas presagiosos 

Software Profesional. 


precios AMSTRAD 
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aquí tenemos uno 
de esos proyectos, 
un termómetro 
construido con un 
mínimo de compo¬ 
nentes y que reali¬ 
zado con elementos 
discretos necesitaría 
docenas de ellos 
para las mismas prestaciones (pre¬ 
sentación digital, memoria conti¬ 
nua, etcétera). 

Pero veamos el montaje, que 
sólo consta de cinco componentes: 
un circuito integrado archiconoci- 
do como es el 555, dos condensa¬ 
dores y dos resistencias, una de 
ellas, de tipo NTC, como elemento 
sensor de la temperatura. 

Para los menos expertos diremos 
que una resistencia NTC (negative 
temperatura coefficient) o termis- 
tor tiene la característica de dismi¬ 
nuir su resistencia conforme au¬ 
menta su temperatura, Desgracia¬ 
damente esta variación no es li¬ 
neal, sino logarítmica, por lo cual 
no son empleadas como transduc¬ 
tores de temperatura en termóme¬ 
tros a pesar de ser muy baratos. 

Afortunadamente, aquí intervie¬ 
ne nuestro Spectrum, que con 
unos sencillos cálculos en progra¬ 
ma nos «aplana» la respuesta de la 
NTC. permitiendo realizar un ter¬ 
mómetro con una precisión muy 
aceptable, que en algunos casos 
puede ser de una décima de grado. 

El funcionamiento del circuito 
no puede ser más simple, al utili¬ 
zar el CI 555 como multivibrador, 
cuya frecuencia de salida está de¬ 
terminada por un condensador y 
por la NTC (ver esquema de fig. I}. 
Ya hemos comentado que la resis¬ 
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Cuando alguien hace esa pregunta tan frecuente 
de ¿para qué sirve un ordenador?, la respuesta 
debería ser que un ordenador es un ladrillo, que 
no sirve para gran cosa, pero es el elemento de 
construcción que nos permite realizar cualquier 
proyecto que nos imaginemos, con una 
versatilidad fantástica. 


tencia de la NTC varía con la tem¬ 
peratura. lo cual ocasionará una 
variación proporcional (pero loga¬ 
rítmica) de la frecuencia de salida 
en la patilla 3 del 555, y que se 
aplica a la entrada MIC del Spec¬ 
trum. Se ha preferido esta entrada 
ya que si lo hacemos por la EAR, 
el sonido por el altavoz del ordena¬ 
dor es más fuerte y puede ser mo¬ 
lesto en una utilización prolonga¬ 
da. 

La NTC empleada es de 47.000 
ohmios lo cual significa que tendrá 
aproximadamente este valor de re¬ 


sistencia a 25 grados centígrados. 
Esto tiene su importancia, como 
veremos a la hora del ajuste. 

Para alojar los componentes se 
ha utilizado un minúsculo circuito 
impreso cuyo dibujo por ambas 
caras aparece en la figura 2. 

El montaje se alimenta en los 
puntos señalados, con una pila o 
alimentador de 5 a 16 voltios, aun¬ 
que los ajustes del presente monta¬ 
je se han realizado con 9 V. El con¬ 
sumo del 555 es mínimo. 

Terminado el montaje del cir¬ 
cuito impreso con los componen- 








tes. debemos fijar la NTC (del ta¬ 
maño de una lenteja) al final de un 
cable apantallado, recortando sus 
patillas al mínimo y una vez solda¬ 
da (sin cortocircuitos), recubrirla 
de Araldit rápido hasta formar una 
bola endurecida que permita la in¬ 
troducción en líquidos, evite cor¬ 
tocircuitos al tocarla con los dedos 
y le de mayor solidez mecánica. 
Este aislamiento puede mejorarse 
con un par de capas de esmalte de 
uñas (que añade una nota de boni¬ 
to color). 

Todos los periféricos necesitan 
un programa para funcionar. Este 
no podía ser menos y tiene dos, 
uno en BASIC y otro en código 
máquina. 

El programa 2 es la versión en 
ensamblador de la parte de código. 
Se coloca en la dirección 60.000, 
pero puede ser relocalizado en 
cualquier otro sitio disponible. En 
la línea 20 y 30 se cargan dos con¬ 
tadores, el HL sirve como almacén 
de los impulsos recibidos del inte¬ 
grado 555 y que son leídos en el 
puerto 254 en las líneas 80 y 160, 
comprobando si hay señal en las lí¬ 
neas 90 y 170. Se usan dos bucles 
(LOOP1 y LOOP2) para detectar 
cuándo hay señal o no en el puer¬ 
to. Por último, el resultado de la 
cuenta se guarda en el stack con 
PUSH HL y se pasa al registro BC 
en la línea 210. La razón de este 
último intercambio de registros, es 
que cuando en BASIC hacemos 
un: 

LET variable = USR XXXXX 

al regresar al BASIC la variable 
contiene el valor del registro BC. 

El programa 1 es la parte de BA- 


PROGRAMA 1 


10 REM JOAQUIN PAREDES PARDO 
20 FOR d=60000 TO 60033 
30 READ a: POKE d,a: NEXT d 
50 LET f~USR 60000 
55 LET rtl=(1.44/<2*f*.0000000 
04 >)-<1200/2) 

58 LET t1=3920/(((3920/298)~LN 
47000>+LN rtl) 

65 LET c=INT C<t1-273>*10.6*10 

) 

66 LET t™(I NT <c/10>)/10 
68 PRINT AT 8,16;” 

70 PRINT AT 8,3; "TEMPERATURA: 

";t;AT 8,21;"grados" 

80 GO TO 50 

100 DATA 33,0,0,1,255,255,11,12 
0,177,40,20,219,254,254,191,40,2 
45,35,11,120,177,40,8,219,254,25 
4,191,32,245,24,231,229,193,201 


PROGRAMA 2 


10 


ORG 

60000 

20 


LD 

HL,00000 

30 


LD 

BC,65535 

40 

LOOP1 

DEC 

BC 

50 


LD 

A, B 

60 


OR 

C 

'70 


JR 

Z, FIN 

80 


IN 

A,(254) 

90 


CP 

191 

100 


JR 

Z,LOOP1 

110 


INC 

HL 

120 

L0QP2 

DEC 

BC 

130 


LD 

A, B 

140 


OR 

C 

150 


JR 

Z, FIN 

160 


IN 

A,(254) 

170 


CP 

191 

180 


JR 

NZ,L00P2 

190 


JR 

LOOP1 

200 

FIN 

PUSH 

HL 

210 


POP 

BC 

220 


RET 














PROGRAMA 3 



1 DIM v(49): LET x=0 

2 PRINT "Para ajustar hará pu 
1 se J a ’" 

3 60 SUB 8000 

4 BORDER 2: PAPER 6 
6 GO TO 85 

10 BEEP .1,20 
12 GO SUB 8030 
14 RETURN 

85 POKE 23672,Os POKE 23673,0: 
POKE 23674,0 
90 CLS 

95 PRINT AT 1,28;"seg": PRINT 
AT 1,24;PRINT AT 1,20;"ho 
r " 

100 DEF PN d(a,b)=a*(a>b)+b*<b> 
—a > 

110 DEF FN j 0=1 NT <(65536*P£EK 
23674+256*PEEK 23673+PEEK 23672 
>/50) 

120 DEF FN t()=FN d (FN jO.FN j 
O > 

140 GO TO 470 
205 LET p=FN tí): LET t=p 
210 LET p=FN tü: LET t=p 
220 LET hor=INT (t/3600) 

230 LET t=t-hor*3600 
240 LET min=lNT (t/60) 

250 LET t=t-min*60 
260 LET seg=INT t 
270 IF INKEY$="a" THEN GO SUB 
1000 

280 LET h*=STR$ hor: LET mS=STR 


$ min: LET s$=STR$ seg: LET uí=h 

460 RETURN 
470 GD SUB 200 

480 PRINT AT 3, 29;seg: IF seg=ü 
THEN PRINT AT 3,30:" " 

490 PRINT AT 3,25;min: IF min=0 
THEN PRINT AT 3,26:" 11 
500 PRINT AT 3,21;hor: IF hor>2 
3 THEN GO TO 7 
600 IF seg=00 THEN GO SUB 10 
999 60 TO 470 

1000 INPUT "hora (hhmmss) 7 ";a* 
: IF LEN a$<>6 THEN 60 TO ÍOOO 
1010 LET x=50*(VAL a$(5 TO 6)+60 
♦VAL a$<3 TD 4>+3600*VAL a *(1 TO 
2 ) > 

1020 LET xl=INT (x/65536): LET x 
=x-65536*xI; LET x2=1NT Cx/256): 

LET x=x-256*x2: LET ;<3=x 
1030 POKE 23674,xl: POKE 23673,x 
2: POKE 23672,x3 
1040 RETURN 
8000 REM termómetro 
8010 FOR d=60000 TO 60033 
8020 READ a: POKE d,a: NEXT d 
8025 RETURN 
8030 LET f=USR 60000 
8040 LET rtl = (1.44/(2*-f*. 0000000 
04>>-(1200/2) 

8050 LET t1=3920/(((3920/298)-LN 
47000>+LN rtl) 

8060 LET c=INT ((11-273)* 10.6*10 
) 

8070 LET t=(INT (c/10>)/10 
8080 PRINT AT 8,16:" 

B085 PRINT AT 8,3;"TEMPERATURA: 

";t;AT 8,21;"grados" 

8086 PAUSE 50 

8088 IF min=00 OR mín=l5 GR min= 
30 OR min=45 THEN GO SUB 9000 
B090 RETURN 

8100 DATA 33,0,0,1,255,255,11,12 

O,177,40,20,219,254,254,191,40,2 

45,35,I 1,120,177,40,8,219,254,25 

4,191,32,245,24,231,229,193,201 

9000 REM almacena 

9010 LET x=x+l 

9020 LET v(x)=t 

9030 RETURN 

9500 REM gráfica 

9505 LET t=0: LET d=0 

9510 FOR f =0 TO 48 

9515 LET d=d+l 

9520 LET y=4*v(d) 

9570 IF NOT t THEN PLOT f,(y-4) 
+88: LET t=l: GO TD 9600 
9580 DRAW 4,y—oldy 
9600 LET oldy=INT (y+.5) 

9610 NEXT f 

























Mospectrun 



TODOSPECTRUM es una publi¬ 
cación mensual que le ayudará a 
obtener el máximo partido a su 

SPECTRUM y al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 

Mospectrun 



us&SS & 

í .’ir 


ADEMAS, le hacemos un 25 % DE DESCUENTO 


sobre el precio real de suscripción (12 números) 


VALOR REAL DE 
SUSCRIPCION 

^3?GGQ1ptas. 


OFERTA ESPECIAL 
DE SUSCRIPCION 

2.700 PTAS. 


USTED AHORRA 

900 PTAS. 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse a TO¬ 
DOSPECTRUM. E nvie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano. Inmediata¬ 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


Mospectrun 


Bravo Murillo, 377 
Tel. 733 79 69 
28020 MADRID 



















COMPONENTES 

L200 ohmios 

R 2 tcrmistor NTC de 47.000 
ohmios. 

C t 0,1 niicrofaradíos 
C 2 6.8 nano faradios 
iC RC 555, NE555 o equivalente 
Jack macho y cable apantallado 


figura i 


FIGURA 2 


MIC 



Lado componentes 




SIC que se encarga de colocar el 
código máquina en su lugar, lla¬ 
marlo para que realice la medida 
de la frecuencia generada por el 
montaje, tratar este valor con las 
fórmulas adecuadas para obtener 
Finalmente la temperatura que co¬ 
rresponde a un determinado valor 
de resistencia de la NTC y final¬ 
mente imprimir en pantalla el re¬ 
sultado. 

En la línea 55, a partir de la fre¬ 
cuencia medida mediante el códi¬ 
go máquina hallamos la resistencia 
(rtl) de la NTC para la temperatu¬ 
ra a la cual se encuentra. Seguida¬ 
mente, usamos este valor (rtl) en 
la fórmula de la línea 58 para obte¬ 
ner la temperatura {ti), al mismo 
tiempo que pasamos los datos de 
su forma logarítmica a lineal. 

Finalmente en las líneas 65 y 66 
pasamos los grados de Kelvin a 
centígrados, ajustamos su valor y 
eliminamos los decimales innece¬ 
sarios. 

Llegados a este punto es necesa¬ 
rio proceder al ajuste del dispositi¬ 
vo, Es imposible realizarlo de for¬ 
ma teórica usando para las fórmu¬ 
las los valores de los componentes 
del montaje, entre otras cosas por- 
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que hay uno desconocido: la cons¬ 
tante K de la NTC Este es un va¬ 
lor asociado a cada tipo de NTC, 
pero que difícilmente podrán faci¬ 
litarnos en el comercio suministra¬ 
dor {los componentes en España se 
venden como churros). En la linea 
58 se ha asignado a K el valor 
3920, que es más o menos típico. 
Por lo dicho procederemos de una 
forma más práctica y efectiva. 

Los que han tenido la paciencia 
de leer hasta aquí recordarán que 
nuestra NTC tenía una resistencia 
de 47.000 a una temperatura de 25 
grados centígrados. Así pues, pre¬ 
pararemos dos baños, uno a 25 y 
otro a 0 grados; este último se pre¬ 
para con hielo de agua destilada 
picado. Unos cubitos flotando en 
agua darán 4 grados, no cero. 

Una vez la sonda en agua a 25 
grados {medir con un buen termó¬ 
metro de mercurio) y estabilizada 
su temperatura, es evidente que rtl 
en la línea 55 debería valer 47.000. 
Si no es así, debe modificarse el va¬ 
lor 000000004 en más o en menos 
hasta lograrlo. Para este ajuste 
puede escribirse temporalmente la 
línea 56 PRINT rtl. Esto puede 
ser suficiente para una precisión 


■ La gran ventaja de 
un termómetro 
controlado por 
ordenador es la 
continuidad y 
memorización de la 
medida, 
permitiendo su 
posterior 
procesado 

aceptable. En caso contrario, se 
prueba también a cero grados y se 
modifican los valores 1,6 ó 3920 
de las líneas 65 y 58. 

De los tres prototipos construi¬ 
dos, dos necesitaron el ajuste ante¬ 
rior, mientras, el tercero funcionó 
a la primera con los valores del 
programa adjunto. 

Evidentemente la precisión del 
dispositivo será mayor para már¬ 
genes cortos de medida {aprox. 0,1 
grado) que para otros más amplios. 
Así, en el margen -10 a 40 grados 
puede esperarse una precisión de 
0,5 a 1 grado (todo depende de la 
precisión del ajuste). 


La gran ventaja de un termóme¬ 
tro a través de ordenador, aparte 
de su bajo precio en este caso, es la 
continuidad y memorización de la 
medida, lo que permite su poste¬ 
rior procesado en usos tan intere¬ 
santes como, por ejemplo, el in¬ 
dustrial o la experimentación 
(control automático de la tempera¬ 
tura de un animal ante un antipiré¬ 
tico por ejemplo). 

El programa 3 ha sido utilizado 
para memorizar la temperatura 
durante doce horas nocturnas y en 
períodos de 15 minutos (línea 
8088); permitiendo la visualiza- 
ción en una gráfica con GO TO 
9500 (no RUN). Evidentemente el 
programa admite muchas modifi¬ 
caciones y perfeccionamientos. 

Asimismo, los más temerosos 
por la integridad de su querido 
Spectrum tras largas horas de fun¬ 
cionamiento continuo, pueden 
usar el programa para que el orde¬ 
nador pida ¡socorro! (con progra¬ 
ma sintetizador de voz) cuando el 
usuario crea que la temperatura de 
la máquina alcanza valores peli¬ 
grosos para su bolsillo. 

Joaquín Paredes 




DISPONEMOS DE TAPAS ESPECIALES PARA 

SUS EJEMPLARES DE 





(cada tapa es para 6 ejemplares) 
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SIN NECESIDAD DE ENCUADERNACION 


UNIDAD 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envíelo a: 

Tft HrtfH fi a^iini Bravo MurlMo, 377 
HWI wP WIriill Tel. 733 96 62 - 26020 MADRID 


Por favor envíenme ... tapas para la encuademación de m<s 

ejemplares de TODOSPEGTRUM. al precie de 650 pts más gastos de envío 
El importe lo abonaré 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE 
CRÉDITO □ AMERICAN EXPRESS □ VISA □ INTERBANK 

Número de m. tarjeta,: [TTTT i I 1 I 111.1 I L I I I I 1 I f I II LJ 

Fecha de caducidad ... ...... Firma 

NOMBRE ..... 

DIRECCION .......... 

CIUDAD... C. P . 

PRQVINCfA ...,........ 
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WOOD 


SERMA 

SPECTRUM 48 K 


Después del éxito obtenido con 
Nodes of Yesod la cada ODIN 
vuelve a la carga con un nuevo 
programa para Spectrum: Robín 
of the Wood. 

Seguramente todos recordaréis 
la leyenda de Robín de los 
bosques, el legendario héroe 
medieval. Pues bien, con este 
magnífico programa tendremos 
la oportunidad de retroceder en 
el tiempo y ayudar a nuestro 
héroe a recuperar la gran flecha 
de plata, símbolo de libertad 
para los habitantes de Saxon. 
Esta flecha está en poder del 
malvado sheríf de Nottingham, 
que ha organizado un gran 
torneo ofreciéndola como 
premio al vencedor. Pero todo 
esto no es más que una trampa 
para atrapar al valeroso Robin. 

Tu misión consiste en llegar 
hasta el castillo de Nottingham y 
recuperar la preciada flecha, 

Pero antes debes hacerte con tu 
arco, tu espada y tres flechas 
mágicas, tarea que no resulta 
demasiado fácil teniendo en 
cuenta que el bosque se 
encuentra lleno de soldados con 
una orden muy concreta: acabar 
contigo. También encontrarás 
otra serie de objetos, como 
coronas de laurel que 
aumentarán las vidas, flores, 
sacos de dinero y otros que 
serán de utilidad en 
determinadas ocasiones. 

La difícil misión encomendada 
unido al gran número de 
pantallas, hacen de éste un 


juego difícil al que tendremos 
que dedicar horas y una gran 
dosis de paciencia si queremos 
llegar al final. Los gráficos son 
realmente buenos, el 
movimiento de los personajes 
es inmejorable y ¡os efectos 
sonoros resultan sorprendentes 


Todos estos alicientes lo 
convierten en un juego 
interesante y adictivo, pese a no 
aportar prácticamente nada 
nuevo a este tipo de programas. 
El sonido de la presentación es 
aún más espectacular que el de 
Nodes of Yesod. 




















MATCH 

POIIMT 

PSION _ 

QL 

Pocas casas de software han 
dedicado sus esfuerzos a la 
creación de programas para el 
QL. Una de estas compañías, 
PSION, creadora del Cless y de 
los cuatro programas incluidos 
con el QL, acaba de lanzar la 
versión de un conocido programa 
deSpectrum: Match Point, Si la 
versión Spectrum estaba 
considerada como uno de los 
mejores programas de 
simulación deportiva, la versión 
QLla supera ampliamente. El 
control se realiza mediante 
teclado o Joystick. El juego del 
ordenador es muy fuerte, por lo 
que resulta difícil ganar una 
partida, incluso en el nivel más 
bajo. También podemos 
seleccionar la duración de las 
partidas, entre 1,3 ó 5 sets. Las 
reglas del tenis han sido 
respetadas al máximo, por lo que 
este juego puede considerarse 
como una perfecta simulación de 
tenis por ordenador. Los gráficos 
están muy logrados, 
aprovechando ampliamente las 


posibilidades de la máquina. El 
sonido, aunque escaso, cumple 
perfectamente su cometido. El 
principal inconveniente es que 
resulta difícil acostumbrarse a la 
perspectiva,fallando muchos 
golpes por no calcular 
exactamente la situación de la 
bola. En definitiva, se trata de un 
juego muy adíctivo que exige 
gran concentración y reflejos si 
queremos competir seriamente 
contra la máquina. 
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Núm. 15/300 ptas. 

Simuladores de vuelo, 
Forth, cuarta parte, Monta¬ 
jes: Reloj digital para Spec- 
trum. BASIC para princi¬ 
piantes. Libros. Programas, 


Completa tu colección de ZX. 

A continuación te resumimos el contenido de los ejemplares 
atrasados en existencia. 


Núm. 17/300 ptas. 

Mapa de Atiq-Aiac. Estira 
de caracteres. Dinámica de 
una partícula. Libros, GL 
Magazine, Programas. 
Convertidor analógico-di- 
gital con el P l/O. 


Nüm. 5/300 ptas. 

Gráficos y sonido en el 
Spectrum/libros/Software/ 
13 programas. 


Núm. 11/300 ptas. 

Cómo crear marcianos y 
Núm. 3/300 ptas, otros monstruos. 

La aventura es la avenid Diez programas satélites 
ra/12 programas/Juegos y de Júpiter, rescate, ínteres, 
montajes/Codigo máqui- circulo, préstamo hipoteca- 


Núm. 10/300 ptas 


Num. 12/300 ptas. 

Presentación del Spec- 
trum Plus, Forth. capitulo 1. 
Gráficos en el SpecLrurn, 4 
parte. Libros, Programas y 
montaje s. 


00 ptas 

uevoSin 

ograma! 

idease 


Núm, 14/300 ptas. 

Cómo jugar al Hobbit. 
Gráficos de funciones. Pro¬ 
gramas de ajedrez. Cone¬ 
xiones con el P l/O. Progra¬ 
mas Multiplic, enseñar de¬ 
leitando, Libros, Forth, ter¬ 
cera parte. 


SERVICIO DE 


0 ptas. 

um po 
gramas 
Softwa 
























EJEMPLARES ATRASADOS 





DISPONEMOS DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuadernación) 


Núm. 20/300 ptas. 

Vacaciones con informá¬ 
tica. Crítica Noticias. Pro¬ 
gramas. Son muy diverti¬ 
dos. Libros. Generación de 
placas de circuito impreso. 
Forth. Movimiento armóni¬ 
co simóle. Spectrum musi- 


/300 ptas. 

i 85. Forth. sexta 
rogramas. BASIC 
icipiantes (3). Plat¬ 
icas. Libros. Usua- 


mofanatioi 
¡eras. Disi 
rum. Dos 
Spectrum > 
valuación, 
náquina. 
especial: c 
s a cáms 
jara pnne 
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-^SoPara hacer tu pedido, rellena el cupón adjunto 

I ' i i _r _ i _ i i .r-v \ / a ñ i O a ñ ^ . 


córtalo y envíalo HOY MISMO 

ZX, Bravo Murillo, 377 • 2802O-MADRID *Tel. 733 74 13 


(en cada tomo 
se pueden 
encuadernar 
6 números) 


Los ejemplares atrasados de ZX serán una fuente constante de cono¬ 
cimientos, ideas, soluciones y entretenimientos para el futuro Todo lo 
anterior hace recomendable que los guardes ordenadamente en una de 
las tapas especiales para ZX Cada tapa puede contener 6 ejemplares 
y cuesta solamente 650 ptas. 

Ruego me envíen los siguientes ejemplares atrasados de ZX . 

_____...al precio de 300 ptas. cada uno 

Por favor envíen . tapa(s) al precio de 650 ptas cada una 

(+■ gastos de envío) 

El importe lo abonaré: 

□ contra reembolso □ cheque adjunto □ con mi tarjeta de crédito 

□ American Exprés □ Visa □ Interbank 

Fecha de caducidad . . 

Número de mi tarjeta 


J_L 


NOMBRE ...... 

DIRECCION .... .. 

POBLACIOM...C 

PROVINCIA . 


































PROGRAMAS 


FICHERO <.. N . CAMPOS < . • > 

FECHA ... HQRR 

REQ - i Olí» * « a ^L,Ijp { ■ . . ■ ¡►CAE K * . ■ . ^ 

01) CREACION DE UN FICHERO 
02) ALT RlS DE REGISTROS 
03) BAJAS DE REGISTROS 
04.) MODIFICACION DE REGISTROS 

OS) BUSQUEDA DE REGISTROS 

06) CLASIFICACION DE REGISTROS 

OT) LISTADO TOTRL DE REGISTROS 
0S) LISTADO PRRCIAL DE REGISTROS 
02) CAMBIO ORTOS ENTRE FICHEROS 

10) BORRAR ORTOS DE MEMORIA 

11) COR IR DE 5EGURIDRD 

12) FORMATEADO DE CRRTUCHQS 
131 CARGAR FICHERO DE DATOS 
14.) GRABAR FICHERO DE ORTOS 
XS) DATOS DE UN SOLO CAMPO 

16; BORRAR UN FICHERO DE DATOS 
17) CATALOGOS 

13) FINALIZAR 

PULSE OPCION (*)MENU 

< . . > 


Base de datos 

para microdrive 

Aunque extenso, el programa que nos ha 
enviado desde Huelva Francisco 
Moreno es una completísima base de 
datos para microdrive. En realidad se trata 
de un fichero que puede manipular 
indistintamente otros ficheros con 
registros de longitud variable. Su 
capacidad está limitada únicamente por la 
del microdrive y cuantos más soportes 
tengamos, más ficheros podremos 
alcanzar. 

Las opciones disponibles son las de 
cualquier programa semejante: formateo, 
intercambio de datos, altas, bajas, 
búsqueda de registros, clasificación, 
listado... 


10 BORDER SGN Pl: PAFER SGN PI 
: INK VAL M 7" ¡ CLS : LOAD *”11" ;1 
;"pantal 1a"SCREENÍ : FCR A=ÓÚ TQ 
10 STEP ~t: BEEP .001,As BORDER 
ía/10>: NEXT A; PAUSE NOT PI 
20 CLEAR : LEI CAT-NOT PI: LET 
CftR=N0T PI; LEI REG-NOT PI: LET 
FI=VAL "l"! BORDER 4: PAPER SGN 


FI: 

INK VAL 

"7" 

: LET CRE-NCT 

PI 

: LET 

hí=" M> : 

LET 

qí="": FDR a 

“NO 

T PI 

TO VAL " 

'31" 

: LET b$=b$+" 

" ; 

LET 

CÍ"CÍ+ M ■ 


NEXT a: FOKE 

VAL 

"23658".VAL 

”8" 

í CLS 



40 IF CAT=SGN PI OR FI>SGN PI 
THEM PRINT "FICHEROS 11 ¡ E#; " V; " 
N-CAMPOS<";B;">«' H FECHA< W ;FE; M > 
HORA<*';HO; " >" J "REG: T0T<" ; RES; 11 > M 
5 "LIB,< ";REG- (FI-1) ; " >" ; ;, CRE-<*’; 
FI —1 g "I GO TO VAL "í)0 H 

50 IP NOT CAT THEN PRINT "FIO 

HER0< . . >'V N- C AMPOS < . . >" 

' ir FECHA< . HORA<_>" ' 11 REG 

; T0T<. . . . >LIB< . >CRE<_ > u 

60 PRINT PAPER 4;B* 

70 PRINT ”01) CREACION DE UN P 
ICHERO" S PRINT ,T 02) ALTAS DE REG 
ISTROS”s PRINT "03? BAJAS DE RES 
ESTROS"¡ PRINT "04? MODIFICACION 
DE REGISTROS": PRINT "05? BUSQU 
EDA DE REGISTROS" 

SO PRINT ”06? CLASIFICACION DE 
REGISTROS": PRINT "07? LISTADO 
TOTAL DE REGISTROS"; PRINT "OS} 
LISTADO PARCIAL DE REGISTROS": P 
RINT "07? CAMBIO DATOS ENTRE FIC 
MEROS" 

90 PRINT "10? BORRAR DATOS DE 
MEMORIA": PRINT "1 i) COPIA DE SE 
GURI DAD": PRINT "12? FORMATEADO 
DE CARTUCHOS”: PRINT "13) CARGAR 
FICHERO DE DATOS": PRINT "14? G 
RABAR FICHERO DE DATOS": PRINT " 
15? DATOS DE UN SOLO CAMPO" 

100 PRINT "16? BORRAR UN FICHER 




















f/ '£5 i 

g i ^ ■ 

L__ 


O DE DATOS "i PRINT "173 CATALOGO 
S": PRINT " 1 B) FINALIZAR 1 ’ 

120 PRINT *SGN PI;AT NOT PI,NOT 
PI; "PULSE OPCION 11 ; LET LM=VAL " 
2" í GO SUB VAL 11 400 11 
130 IF CQDE Fíí TO 1)>57 OR COD 
E Ftí TO 1}<4E THEN 00 TO VAL ,f 
120 " 

140 IF LEN FtTSGN FI THEN IF C 
DDE Fti2 TO 2>>57 OR CODE FTC2 T 
D 2X48 THEN GO TO VAL "120" 

145 IF VAL Fr>NQT FI AND VAL F * 
<19 THEN GQ TO VAL "líO" 

150 IF VAL F$<5GN PI OR VAL Fi> 
VAL 11 18 M THEN 00 TO VAL "120" 
190 GO TO 500+300*VAL F$ 

400 REM SUBR.ESCRITURA PALABRA 
405 BEEP .01,60: PRINT #SGN PI; 
AT NOT PI,VAL "25" ; M C*J MENU" : PR 
IUT #5GN PI;AT SGN PI,SGN PI;Cí< 
■TS Bi< TO 32-2-LM^AT S 

SN PI t NOT PI ; "<» ; 

410 LET FÍ=" M : FOR X=1 TO LM: P 
ALÍSE NOT PE; LET GÍ=INK£Yt 
420 IF GÍ~CHRÍ 13 THEN GO TQ V 
AL 1 4 1 o 11 

430 IF GT=CHR'T 12 AND LEN FÍ>NG 
T PI THEN PRINT #SGN PI;CHRi B; 
!I . M ;CHRÍ 8;: BEEP .01,0; PAUSE N 
OT PI; LET G$=INfcEYi: LET Fí-Fi< 
TD LEN Fi—1) s LET X=X-1- GO TO 
VAL "420" 

440 IF CODE Gi<32 OR CODE Gí>12 
7 THEN LET X=X-1¡ GO TQ 460 
450 PRINT #EGN PI;B$; S BEEP ,01 
,40: LET F$=sFf-+6i: IF F* { TO 1 > - 
,, +" THEN CLS : INPUT 11 " i GO TO 
VAL "40" 

460 NEXT X 

470 PRINT #SGN PIjftT NOT PI,VAL 
"23"; FLASH SGN P I ;"CORRECTO?"■ 
PAUSE NOT Pía LET Ai= INK.EYÍ: IF 
A^’n" OR aÍ="N" THEN PRINT ttS 


GN PI; AT NOT PI,VAL TQ 

9);AT SGN PI,SGN PI;C$Í TO LM3 ;A 
T SGN PI,NOT PIg OVER SGN PI;" " 
;; LET F*=" H : LET X=NDT PI; GP T 
Q VAL "460" 

480 IF Ai="s M OR Aí="3" THEN P 
R1NT #SGN PI;AT NOT PI,VAL "23"; 
Bit TO 9): GO TD VAL -500" 

490 GO TO VAL "470" 

500 INPUT RETURN 

510 STOP 

1000 REM CREACION DE UN FICHERO 

1005 IF ere THEN PRINT fcSGN PI; 
AT NOT P1,N0T PI ^FICHERO EN MEM 
DRIA. SI CONTINUO SERA BORRADO." 
■ BEEP .01,10; PAUSE VAL "SOO": 

INPUT . F'RINT IÍSGN PI;AT NOT P 

1,NOT PI;"CONTINUO? CSI/NOÍ"; PA 
USE NOT PI: LET ai-INKEYi: IF a# 
= JL s" OR a*="S" THEN GQ TO VAL " 
20 " 

1006 IF ere AND ai="n 11 OR ai= "N" 
THEN GO TO VAL "120" 

1010 CLS : PRINT INVERSE ls"CRE 
ACION 11 

1025 PRINT #SGN PI.fAT NQT FI,NQT 
PI;"NUMERO DE CAMPOS": LET LM=V 
AL n 2"s GO SUB VAL "400": LET B= 
VAL Ff 

1030 IF B>VAL "15" THEN PRINT # 
SGN PI;AT SGN PI t NDT PI; FLASH S 
GN PI;"15 CAMPOS COMO MAXIMO": P 
AUSE VAL "200": GO TQ VAL "1010" 
1035 IF ÉKSGN PI THEN PRINT 8SG 
N PI;AT SGN PI,NDT PI; FLASH SGN 
PI;"I CAMPO COMO MINIMD": PAUSE 
VAL "200": GO TD VAL "1010" 

1040 DIM d£(B,20): LET *#=""; FQ 
R A=1 TD B: PRINT #SGN PI;AT NOT 
PI,NGT PI;"NOMBRE DEL CAMPO ";A 
.. LET LM=20í GO SUB 400 

1099 LET D:*fA)=F:í: PRINT F# 

1100 NEXT A: LET cre^SGN PI: CLS 


1110 PRINT TAB 3; INVERSE 1;"CAM 
POS"¡TAB 20; INVÉRSE lj"LONGITUD 

- ii 

1120 FOR A=i TO B; PRINT AT 3+ñ, 
I NT PI;di<a>;"<";e*( TO 2);" >": 
NEXT A 

1125 DIM díb>s PRINT ttSGN PI;AT 
NQT PI,NOT PI;"LONGITUD :MAX.50- 
MIN.1" 

1130 FOR c=í TO b 
1135 PRINT AT 3+C,24;".";CHR* 9; 
1140 LET LM-VAL "2": GQ SUB VAL 
"400": IF VAL Fi>30 OR VAL FÍ<5G 
N PI THEN GO TQ VAL "1140" 

1150 PRINT FS; LET DÍO-VAL FS: 
NEXT C: GO TO VAL "1210" 

1210 LET tütme-NOT PI: FOR a=l T 
O b: LET totme-totme+dta): NEXT 
a: LET reg^INT (ÍÍ65535-USR 7962 
)-2000>/totme3: PRINT #SGN PI;AT 
SGN PI,NOT PI:"FICHERO CQN ";re 
g;" REGISTROS"' 

1215 PAUSE VAL "200": INPUT 
PRINT tfSGN PI;AT NOT Pl,NOT PI;" 
FECHA DE HOY": LET LM=VAL M é":'G 
O SUB VAL ai 400": LET FE=VAL Fii 
INPUT n “! LET LM“VAL "4"x PRINT 
#SGN PIjAT NOT PI,NOT PIs'HGRA A 
CTUAL": GO SUB VAL "400"s LET HD 


=VAL 

F* 



1220 

FOR 

a— 1 TQ b: GO 

SUB 1230+a 

í NEXT ñ! 

: IF CAR=1 THEN LEI CAR 

-NOT 

PIí 

GO TO 7060 


1230 

GO TQ VAL "1250" 


1231 

DIM 

íreg+I , d í a í 

>i RETURN 

1232 

DIM 

Iiíreg,día)>: 

RETURN 

1233 

DIM 

(reg,d ía>5; 

RETURN 

1234 

DIM 

Kí(reg,d(a)>: 

RETURN 

1235 

DIM 

L$(reg,d í a) ): 

RETURN 

1236 

DIM 

Mi (r eg T d (a ) ) : 

RETURN 

1237 

DIM 

Niíreg T d ía>>: 

RETURN 

1230 

DIM 

Diíreg,d ta) > : 

RETURN 

1239 

DIM 

F* i reg t d ta >) : 

RETURN 












































1240 DIM Qitreg,d(a)>: RETÜRN 

1241 Dir-t Ri (reg ,d ía> J ; RETÜRN 

1242 Din SÍtreg.d U) >; RETÜRN 

1243 DJM Tí íreg ,d f a> ) : RETÜRN 

1244 DIM Uiíreg,día )>3 RETÜRN 
1243 DIM V*íreg^dCal): RETÜRN 
1255 PRINT ttSSN PI;AT NOT PI,NOT 

PI;"NOMBRE DEL FICHERO"; BEEP - 
01,40? LET LM=VAL " 10 "s 00 SUB V 
AL "400": LET EÍ=F$: PRINT #SGN 
PI¡AT NOT PI,NÜT PI;"FICHERO ORE 
ADcrs BEEP .01,30: PAUSE VAL "10 
O ' 1 ¡ CLS ¡ GO TO VAL "9800" 

1500 REM ALTAS DE REGISTROS 
1 S 10 IF CRE=NÜT PI THEN PRINT tt 
SGN PI; AT NOT PI,NOT PI;"NO EXIS 
TE FICHERO EN MEMOR I A r " ' Bi; BEEP 
.01,40: PAUSE VAL "100"; INPUT " 
"¡ 60 TO VAL Ir 120" 

1550 CLS : GO TO VAL "9800" 

2000 REM BAJAS DE REGISTROS 
2010 IF NOT ORE ÜR FIC2.THEN PR 
1NT #SGN PI;AT NOT Pl,NOT PI;"NO 
EXISTEN FICHAS EN MEMORIA„ " ' B$: 
BEEP .01,30: PAUSE VAL "100": I 
NPUT M "t GO TO VAL "120" 

2020 CLS : PRINT INVERSE SGN PI 
;"BAJAS DE REGISTROS 1 ": PRINT 

Para dar de baja un registro, 
deberá introducir el numero del 
mi sma lp 

20^0 PRINT #SGN P1;AT NOT PI f NOT 
Pl; l, N. DEL REGISTRO"": LET LM“VA 
L "4": GO SÜB VAL "400"3 LET H“V 
AL Fí 

2035 IF h>fi -1 THEN PRINT #5SN 
PI;AT NOT PI,NüT PI;"NO EXISTE E 
SE REGISTRO": BEEP .1,0: PAUSE V 
AL "1QQ": GO TO VAL "2030" 

2040 FOR C=1 TO B: FOR A=H TC FI 
“1: GO SUB VAL "2100+C": NEXT A: 
NEXT Cí LET FI=FI-1: PRINT #SGN 
PI;AT NOT PI,NOT PI;"REGISTRO P 
□RRADO": PAUSE VAL "50"; CLS : G 
O TO VAL “40” 

2101 LET Hí i A> -Ht ÍA+i): RETÜRN 

2102 LET I* CA)«X* ÍA+1> : RETÜRN 

2103 LET J$CA>=JíCA+1): RETÜRN 

2104 LET <A>*KíÍA+1): RETÜRN 

2105 LET Lí{Ai-L#ÍA+1>: RETÜRN 

2106 LET Mí í A > —Mí(A+1> j RETÜRN 

2107 LET NTCA?“NÍ(A+l); RETÜRN 

2108 LET DÍ(A)-OÍCA+n : RETÜRN 

2109 LET PiíA>-PiCA+Í>s RETÜRN 

2110 LET Qí CA>- 0 i f A+n : RETÜRN 

2111 LET RiÍA>=RÍ(A+1>: RETÜRN 

2112 LET Si(A)=S$<A+l): RETÜRN 

2113 LET TíÍA>=TttA+lls RETÜRN 

2114 LET U$<A)=UÍ(A+l): RETÜRN 

2115 LET Vi(A)=VÍ(A+l); RETÜRN 
2400 PAUSE O 

2500 REM MODIFICACION REGISTROS 
2510 IF NOT CRE THEN PRINT #SGN 
PI;AT NOT PI,NOT PI;í"N 0 EXISTE 
FICHERO EN MEMORIA"'Bis PAUSE VA 
L "100"; INPUT GO TO VAL "12 

Ü M 

3000 REM BUSQUEDA DE REGISTROS 
3010 IF NOT CRE THEN PRINT #S 6 N 
PI;AT NOT PI,NOT PI:"NÜ HAY NIN 
GUN FICHERO EN MEMORI A"'Bi: PAUS 
E VAL "100"í INPUT 80 TO VAL 

" 120 " 

3020 CLS : PRINT 'INVERSE SGN PI 
f"BUSQUEDA DE UN REGISTRO": PRIN 
T "t FDR A=SGN PI TO B s PRINT A 
;"> ";DÍ<A>: BEEP .01,60: NEXT A 
3030 PRINT #SGN pl;AT NOT PI,NQT 
PI;"PULSE CAMPO A BUSCAR": LET 
LM- 2 : GO SUB VAL "400" 

3040 LET G=VAL FÍ 

3050 PRINT #SGN PI;AT NOT PI,NOT 
PI;"DATO A BUSCAR";Bí í TO 8 >: L 
ET LM“D<G> ; GG SUB VAL "400": LE 
T WS-Fi 

3060 FOR A=SGN PI TD FI-SGN PI: 
80 SUB VAL ""3095" 


3070 NEXT A: PRINT #SGN PI;AT NO 
T PI , NOT FI; 11 NO EXISTEN MAS REGI 
STROS 1 "; BEEP .01,30: PAUSE VAL " 
100": PRINT #SGN PI;AT-NOT PI,NO 
T PI;"DESEA BUSCAR OTRO REGISTRO 
?": BEEP .01,20: PAUSE NOT PIt L 
ET AÍ=INKEYi: IF AÍ-"S" OR fií="s 
lf THEN GG TO VAL «3020" 

30B0 CLS : GO TO VAL "40" 

3095 FOR E=1 TO LEN Wí: GO SUB V 
AL "3i00 ,É +G*2 

3102 IF H$(A>< TO E)=Wi( TO E) T 
HEN NEXT Es GO SUB VAL "3200": 
RETÜRN 

3103 RETÜRN 

3104 IF lí(A) í TG E)=Wí( TO E) T 
HEN NEXT E; GO SUB VAL ""3200": 
RETÜRN 

3105 RETÜRN 

3106 IF Jf (A)( TO E)=Wí( TO E) T 
HEN NEXT E: GO SUB VAL "3200": 
RETÜRN 

3107 RETÜRN 

3100 IF líKflM TO E)=WÍÍ TO EJ T 
HEN NEXT Es GO SUB VAL ""3200": 
RETÜRN 

3109 RETÜRN 

3110 IF Lí(AJÍ TO E)=WÍ( TO E) T 
HEN NEXT E: GG SUB VAL "3200": 
RETÜRN 

3111 RETÜRN 

3112 IF Mí(A) C TG EJ^WÍ( TG E) T 
HEN NEXT Es GO SUB VAL "3200"a 
RETÜRN 

3U3 RETÜRN 

3114 IF Ní (Al < TO E)-Wit TO E) T 
HEN NEXT Es GG SUB VAL "3200": 
RETÜRN 

3115 RETÜRN 

3116 IF Oí(A)( TG E>=WÍ( TO E) T 
HEN NEXT E: GO SUB VAL "3200"'s 
RETÜRN 

3117 .RETÜRN 

3110 IF Pi(A) ( TD E? =WS( TO EJ T 
HEN NEXT E: GO SÜB VAL "3200": 
RETÜRN 

3119 RETÜRN * 

3120 IF QÍÍAM TO E) -m í TO El T 
HEN NEXT E: GO SUB VAL "3200": 
RETÜRN 

3121 RETÜRN 

3122 IF RÍÍAM TO E)^WÍÍ TO E> T 
HEN NEXT E: GO SUB VAL "3200": 
RETÜRN 

3123 RETÜRN 

3Í24 IF S$ÍAM TQ E)=Wíí TO E > T 
HEN NEXT Ei GD SUB VAL "3200": 
RETÜRN 

3125 RETÜRN 

3126 IF TííAM TO E)=Wií TO El T 
HEN NEXT E: GD SÜB VAL "3200": 
RETÜRN 

3127 RETÜRN 

3120 IF Uí(AM TO E5-WTÍ TO El T 
REN NEXT Es GO SUB VAL "3200": 
RETÜRN 
3129 RETÜRN 

3-130 IF V$(A)í TO E)-U itt TD El T 
HEN NEXT Ei GO SUB VAL "3200": 
RETÜRN 
3131 RETÜRN 

3200 CLS : PRINT INVERSE SGN PI 
¡"REGISTRO ENCONTRADO H ;A: FOR C 
=1 TO B: PRINT : PRINT C;")";DÍ( 
C) p " ; : GO SÜB VAL "3300"+C: P 
RINT NEXT C 

3210 PRINT <H, #SGN PI¡AT NOT PI, 
NOT PI;"ES EL REGISTRO BOSCADO? 11 
: PAUSE NOT PI: LET FT^INKEYÍ 
3220 IF 4t="S" OR THEN P 

RINT #SGN PI; AT NOT PI,NOT 
USCA OTRO REGISTRO?";Bi( TO 4): 
PAUSE NOT PI: LET fINKEVÍ: GO 
TO VAL "3240" 

3225 IF FíO"S" AMD FÍO"s"" THEN 
GO TO VAL "3070" 

3240 IF fT""s" OR THEN G 


Ü TO VAL "3020" 

3250 CLS : GO TO VAL M 40" 

3301 PRINT Hf(A);s RETÜRN 

3302 PRINT IÍÍA);: RETÜRN 

3303 PRINT J$ <A) ;: RETÜRN 

3304 PRINT KT<A);: RETÜRN 

3305 PRINT Lí(A);: RETÜRN 

3306 PRINT MÍÍA>;; RETURH 

3307 PRINT Ni(A) 5 : RETÜRN 
330B PRINT OiCAlss RETÜRN 

3309 PRINT Pi(A);; RETÜRN 

3310 PRINT Qi(Aí;: RETÜRN 

3311 PRINT Ri(A);: RETÜRN 

3312 PRINT Sí CAÍ;: RETÜRN 

3313 PRINT TÍ(A>;: RETÜRN 

3314 PRINT Uí(A);: RETÜRN 

3315 PRINT VÍ(ñ>fí RETÜRN 

3500 REM CLASIFICACION REGISTROS 
3510 IF NOT CRE THEN PRINT #SGN 
FI;AT NOT PI,NOT PI;"NO EXISTE 
FICHERO EN MEMORIA" Bi: PAUSE VA 
L "1Ó0": GO TD VAL "120" 

3520 CLS : PRINT INVERSE SGN PI 
;"CLASIFICACION DE REGISTROS": P 
RINT : FOR A=1 TO B: PRINT A;")" 
jDiíAJ: NEXT A 

3530 PRINT #SGN PI;AT NOT P1 t N0T 
PIj"QUE CAMPO CLASIFICO?": LET 
LM-VAL "2"t 60 SUB VAL "400" 

35SO FOR A=1 TO FI-1 
3700 STOP 

4000 REM LISTADO TOTAL REGISTROS 
4010 IF NOT CRE OR FI<2 THEN PR 
INT ttSGN PI;AT NOT PI,NQT PI;"NO 
EXISTEN FICHAS EN MEMORIA» M *Bí: 
BEEP .01^35: PAUSE VAL "100": I 
NPUT GO TO VAL "120" 

4015 LET L1-5GN PI: LET L2=FI-9G 
N PI 

4020 CLS : FOR A=L1 TO L2: CLS : 
PRINT TAB 10; INVERSE SGN PI;"R 
! EGISTRO N.";A 

4025 FOR C=1 TO B: PRINT C?"í"; 
Dí (C) 

4030 PRINT BEEP .01,45: GG 

SUB C+4100: PRINT " 

4040 NEXT C: PAUSE O 
4050 NEXT A: PRINT PRINT # 

SGN PI;AT NOT PI,NOT PI;"FIN DE 
FICHERO"'"PULSE UNA TECLA PARA C 
ONTINUAR": BEEP .1,10; PAUSE NÜT 
PI: CLS : GO TO VAL "40" 

4101 PRINT RETÜRN 

4102 PRINT lí(A);: RETÜRN 

4103 PRINT Jí(A);: RETÜRN 

4104 PRINT Ki(A);: RETÜRN 

4105 PRINT LÍCA?;: RETÜRN 

4106 PRINT MÍ(A>;: RETÜRN 

4107 PRINT Ni<A);: RETÜRN 

4108 PRINT 0ÍÍA> ? : RETÜRN 

4109 PRINT PÍ(A);: RETÜRN 

4110 PRINT OÍ(A>;: RETÜRN 

4111 PRINT RÍ íA> s: RETÜRN 

4112 PRINT SÍÍA);: RETÜRN 
4U3 PRINT Tí (A> ; : RETÜRN 
4Í14 PRINT UÍÍA>;; RETÜRN 
4115 PRINT Vi<A> ;: RETÜRN 

4500 REM LIST. PARCIAL REGISTROS 
4510 IF NGT CRE THEN PRINT «SEN 
P 13 AT NOT pi,NOT PI;"NO EXISTE 
FICHERO EN MEMORIA": PAUSE VAL 11 
100": INPUT »»: GO TO VAL "120" 
4520 CLS : PRINT INVERSE SGN PI 
;"LISTADO PARCIAL DE REGISTROS" 
4530 PRINT #SGN PIí¡AT NOT PI,N0T 
PI;"DESDE QUE N.DE REGISTRO?": 
LET LM=VAL "4"; GO SUB VAL "400" 

: LET Ll=VñL Fí: IF Ll^SGN PI TH 
EN GD TO VAL "4520" 

4540 PRINT #SGN PI;AT NOT PI,NQT 
PI;"HASTA QUE N.DE REGISTRO?": 
LET LM-VAL "4"; 00 SUB VAL "400" 

; LET. L2=VAL FÍí IF L2>FI-SGN PI 
OR L2<L1 THEN INPUT G0 TO 

VAL "4540" 

4550 8 Q TC VAL "4020" 

| 5000 REM DATOS ENTRE FICHEROS 







5010 CLS : PRINT INVERSE SGN P1 
; "DATOS ENTRE FICHEROS" 

5020 PRINT '"n COPIO FICHERO EN 
OTRO MICRODR. nJ '"2)TODOS LOS DAT 

OS POR IMPRESORA.*3)CAMBIO EL 

NOMBRE A UN FICHERO"' J "4JTODOS L 
OS DATOS POR PANTALLA" 

5030 PRINT ttSGN FI-AT NOT PI ? NDT 
P15"PULSE OPCION": LET LM—SGN P 
I: 60 SUB VAL 11 400": 00 TO 5000+ 
ÍVAL Fí* 100 ) 

5100 PRINT #SGM PIsAT NOT PI.NOT 
PI;"N.MICRODRIVE FUENTE": LET L 
M=SGN PI: 00 SUB VAL "400 11 2 LET 
FU=VAL Fí 

5110 PRINT ttSGN PI;AT NOT PI,NOT 
PI; "N.MICRODRIVE DESTINO": LET 
LT1=SGN PI; SO SUB VAL "400": LET 
DE=VAL F# 

5120 NOVE "M";FU;EÍ TG "M":DE:Eí 
s PRINT SGN PI;AT NOT PI ? N0T PI; 
"PULSE UNA TECLA PARA CONTINUAR" 
: PAUSE NOT PI¡ CLS : GO TO VAL 
"40" 

5200 PRINT #SGhÍ Pl;AT NOT P3,NDT 
PI 5 "M. DE MICRÜDRIVE"s LET LM-S 
QM PI: GO SUB VAL "400": LET G=V 
AL Fí: CLB : NOVE "M -1 3 Q; Es# TO #3 
: PRINT ttSGN FI;AT NOT Pl,NOT PI 
;"PULSE UNA TECLA PARA CONTINUAR 
PAUSE NOT PI: CLS : 60 TO VAL 

"40" 

5300 GLS • PRINT INVERSE SGN PE 
; "CAMBIAR NOMBRE A UN FICHERO": 
PRINT ‘'" Para cambiar el nomb 
re a un fichero, debe estar gra 
bada en el cartucho." 

5302 PRINT ttSGN,P1 5 AT NOT PE,NOT 
PI ü " N. DE MICRODRI VE 11 : LET LM=5G 
N PI: GO SUB VAL "400": INPUT "" 

: PRINT ' INVERSE SGN PI;"Ficher 
DS del rtiiqrodrive n . "; VAL fí: CA 
T VAL ÍT 

5310 PRINT INVERSE SGN Pl'-Fich 
ero en memoria 

5320 PRINT ttSGN F'I;AT NOT PI,NOT 
PI;"NOMBRE ANTIGUO": LET LM=VAL 
"10": 60 SUB VAL "400": LET Wí= 
Píe PRINT #SBN PI;AT NOT PI,NOT 
PI; lr NOMBRE NUEVO" ; Bí í TO 5): LET 
LM-VAL "10 "s GO SUB VAL "400": 
LET ET=FÍ: PRINT #SGN PI 5 AT N0 T 


PI T NOT PI;"N. DEL MICRODRIVE": L 
ET LM=SON PI; GO SUB VAL "400 11 s 
LET F=VAL Fí: ERASE M M";F;WT: CL 
S 

5330 GD TO VAL "7535" 

5400 CLS : PRINT ENVERSE SGN Pl 
¡"OBTENCION DE DATOS PDR FANTALL 
A": PRINT ttSGN PI;AT NOT Pl T NOT 
PI; "N. DE M ICRDDRIVE " í LET LM=SS 
N PI: 60 SUB VAL 11 400 "2 LET F=VA 
L Fí: PRINT - INVERSE SGN PI;"Fi 
cherns del microdrive CAT 

F: INPUT PRINT ttSGN PI:AT N 

OT PITNOT PI;"DE QUE FICHERO?"; 
LET LM=VAL "10": GO SUB VAL "400 
M : INPUT NOVE "M";F;FT TO #2 

5410 PRINT ttSGN PIsAT NOT PI t NOT 
Pl;"PULSE UNA TECLA": PAUSE NOT 
Plí CLS : GO TO VAL "40" 

5500 REM BORRAR DATOS MEMORIA 
5510 RUN 20 

6000 REM COPIA DE SEGURIDAD 
6010 IF CRE=SGN PI THEM PRINT tt 
SGN PIjAT NDT PI,NOT P1;"DEJE LI 
BRE LA MEMORIA , SI DUIE—RE, SAL 
VE ANTES EL FICH.DE DATOS 11 : PAUS 
E VAL "300": INPUT "": GD TQ VAL 
" 120 " 

6012 CLS : FRINT INVERSE SGN PI 
5 "COPIA DE SEGURIDAD": PRINT 

1) COPIA DE PROGRAMA Y PANTALLA. 

2) COPIA DE PROGRAMA.": LEI LM=S 
GN PI: GO SUB VAL "400"; IF VAL 
FT-SGN PI THEN INPUT ,! *': 60 TO 
VAL "6020" 

6014 IF VAL Fí=2 THEN PRINT #5G 
N PI 2 AT NDT PI,NOT PI; "NOMBRE DE 
LA CDPI A?": LET LM-VAL "10": GD 
SUB VAL "400": LET WT-FÍ: INPUT 
,,M s PRINT #S 6 N PI 5 AT NDT FI.NDT 
PI; "N. MICRODRIVE?" : LET LM=Bf3N 
PI: 60 SUB VAL 1 400": INPUT "": 
PRINT ttSGN PI ; AT NOT FT,NOT PI ; 11 
GRABANDO SAVE *"M";VA 

L FT 3 WT LINE 1 : PRINT #SGN FT;AT 
NOT PI n NOT PI; "VERIFICANDO <|-;W 
í 1 ": VER IFY *"M"sVAL FÍ;WT: GO 
TO VAL "20" 

6016 GO TO VAL "6012" 

6020 PRINT ttSGN PI;AT NOT PI,NDT 
PI ; ,f NOMBRE DE LA COPIA?" : LET L 
M-VAL " 10 ": GO SUB VAL "400": LE 


T WÍ=*FÍ: PRINT ttSGN PI;AT NOT Pl 
iNOT PI;"N t DE MICRODRIVE";Bí ( T 
0 4); LET LM=SGN PI; 60 SUB VAL. 
"4O0 lc ; PRINT ttSGN P 1 3 AT NOT PI,N 
OT PI;"INTRODUZCA EL CARTUCHO 00 
N EL PROGRAMA ORIGINAL Y PULSE 
TECLA.": PAUSE NOT PI; LOAD *"M 
":VAL FT;"pantalla"SCREENT : PRI 
NT ttSGN PI;AT NOT PI,NOT PI;"CAM 
BIE DE CARTUCHO PARA LA COPIADE 
SEGURIDAD Y PULSE UNA TECLA. 11 : P 
AUSE NOT PI: INPUT SAVE *"m" 

1 VAL fíi"pantalla"SCREENÍ ; PR2N 
T ttSGN PI;AT NOT PI t NQT PI;"0RAB 
ANDO PROGRAMA < H S W$ 5 ">": SAVE *" 
M"; VAL F$;m LENE ls CLS : 00 TO 
VAL "40" 

6500 REM FORMATEADO DE CARTUCHOS 
6510 CLS : PRINT INVERSE SGN Pl 
;"FORMATEADO DE CARTUCHOS": PR3N 
T #SGN PI; AT NOT F'I t NQT PI; "NOMB 
RE DEL CARTUCHO": LET LM=VAL "10 
60 SUB VAL "400": LET E$=FÍ: 
PRINT #SGN PI;AT NOT PI,NÜT PI;" 
NUMEPU DEL MICRODR!VE": LET LM=S 
GN PI: GO SUB VAL "400": LET A=V 
AL Fí: PRINT #5GN FT 3 AT NOT PI,1M 
DT PI;"FORMATEANDO 11 ; "< " s ES; 41 >" : 
Bí( TQ 7); FORMAT "M";A;E$: CLS 
: GO TQ VAL "40" 

7000 REM CARGAR FICHERO DE DATOS 
7003 IF CRE=SGN PI THEN PRINT # 
SBN PI;AT NOT PI,NPT PI;"HAY FIO 
HERÜ EN MEMORIA. DEBE U- SAR ANT 
ES LA OPCION 10": BEEP .01,30: P 
AUSE VAL "200": GO TQ VAL "120" 
7005 CLS ; PRINT INVERSE SGN PI 
;"CARGANDO FICHEROS" 

7010 PRINT ttSGN PI;AT NOT P^NQT 
PI;"NUMERO DE MICRODRIVE": LET 
LM-SGN PI: GO SUB VAL "400": LET 
F=VAL Fí: CAT F; PRINT ttSGN PI; 
AT NOT PI,NGT PI;"FICHERO A CARO 
AR"; LET LM=VAL "10": GO SUB VAL 
" 400 11 

7020 LET CAT-SGN PI: LET CAR-SQN 
Plí LET A-r~FT: PRINT ttSGN PI;AT 
NOT Pl ,NDT PI 5 "CARGANDO <";a:t;" 

>*' 

7030 OREN #4; "M ,J 3 F; Aí 
7040 INPUT #4;FE: INPUT #4;HQ: I 
NPUT #4s CRE; INPUT #4;REG: INPUT 
tt4;FI: INPUT tt4;B: INPUT tt 4 ;ET 

7044 DIM D <B) ; DIM DíCB. 20 ) 

7045 FOR A—1 TO B: INPUT #4;DTÍA 
): INPUT #4-DÍA): NEXT A 

7050 GO TO 1220 

7060 FGR A-SGN PI TQ FI -1 

7070 GD SUB B+7100: NEXT A: CLDS 

E 1*4: LET CAR=NOT PI: CLS : GO T 

□ VAL "40" 

7101 INPUT #4¡HÍÍA): RETURN 

7102 INPUT «4fH$(ñ);lítA)t RETUR 
N 

7103 INPUT tt4;HÍÍA) 5 IÍÍA);JíÍA): 
RETURN 

7104 INPUT #4?HíÍA5;If<AÍ;JíÍA); 
KÍCA): RETURN 

7105 INPUT tt4;HÍÍA?;ItÍA);JíÍA); 
KÍÍA);LS<A); RETURN 

7106 INPUT #4;Hí(A);líÍA>;Jí(A); 
Kí«A>;LíÍA>;Mí(A>: RETURN 

7107 INPUT #4:HÍÍA);ITÍA);JTÍA) : 
KiíA>;LífA) ;Mí íñ>;Nt(A) : RETURN 

7108 INPUT #4;HÍÍA);ITÍñ);JtÍA>x 
KfCA);Lí íA) ; m (A) 5 ;NT íA);0í ÍA): 
RETURN 

710? INPUT #4;HÍ(A);ITCA>;JÍÍA); 
Kí CA) ; Lí i A) ; Mí <A> ; Ni CA) ; Oí (A> ; PT 
ÍA): RETURN 

7110 INPUT tt4:HÍCA);lí(A);JíÍA); 
Kí íA);Lí í A);Mí íA);Ní<A> ;0í ÍA) ;Pí 
(A);Oí(Ai: RETURN 
71U INPUT tt4;Hí CA) ; ItCA) ; Jí (A) ; 
Kí(A);Lí(A);Mí <A);N*(A);Oí(A);Fí 
íA);Qí CA);Rí íA): RETURN' 


► 






























7112 INPUT #4;H*ÍA);IíÍA);J$<A); 
Kí <A) ; Lí (A) : Mí í A) ; Ni í p¡> ;Q$ ÍA) ; P$ 
ÍA) ;QÍÍA);R£ CAI;Síí A) : RETURN 

7113 INPUT #4;HÍ(A);li<A>;J iífl); 
K$ í fi) ; Lí í A)j M# < A); W$ £ A)¡O# í A);Pí 
ÍA) ;GíÍA) ;RíÍA? ;SÍÍA) ;TÍ<A) : RET 
URN 

7114 INPUT #4;HÍ£A>^IiíA);J*ÍA); 
Kí(A>(L$£A) sMÍ.íÁJ^NÍíA) ; O# <A> ;Pí 
ÍA); 0i í A);RiíA?;SÍ£A>:TiíA);UÍCA 
> ¡ RETURN 

7115 INPUT #4;H*ÍA>;lí<A>;JítA>; 
K4ÍA>;L*£A);MÍÍA);NÍ(A>;Ot(A);P$ 
ÍA);QÍÍA);RÍÍA> ;S*íA> 5 T* íA):UítA 
) ;Ví tA) : RETURN 

7500 REM GRABACION DEL FICHERO 
7505 IF CRE=NOT PI THEN PRINT # 
SGN PI;AT NOT PI.NOT PI|"NO HAY 
FICHERO EN MEMORIA": PAUSE VAL " 
100": INPUT GO TO VAL " 120" 

7510 PRINT Í1SGN PI;AT NQT PI f NQT 
PI í ‘'UNIDAD DE MICRODR IVE 41 : LET 
LM=SGN PI: GO SUB VAL "400"; LET 
F=VAL Fi: CLS : CAT F: PRINT '' 
ES EL NOMBRE DEL FICH 
ERO QUE ESTA EN MEMORIA, 41 
7515 PRINT #SGN PI;AT NOT PI,NGT 
PI;"BORRA FICHERO CON IGUAL NOM 
DFÍE DEL CATALOGO? ÍS/N) " : DEEP - 
1,25: PAUSE NOT PI: LET F4-INKEY 
4: IF Ff="S" OR F$= l, s" THEN PRI 
NT #SGN PIíAT NOT PI,NOT PIs'BOR 
RANDO <";£*; IJ >";Bií TO ÍO);'B$: 
ERASE "m 4l *f;&$; SO TO VAL ”7530" 
7520 IF F*-"N” OR F4="n" THEN G 
O TU VAL ■ 1 7530" 

7525 GO TO VAL "7515" 

7530 INPUT PRINT #SGN PI;AT 

NOT PI,NOT PI;"FECHA DE HOY"; LE 
T LM=VAL "6 11 s GO SUB VAL "400": 
LET FE=VAL Fí: INPUT "": LET LM= 
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VAL "4 11 ; PRINT ttSGN PI;AT NOT PI 
f NOT PI; 4l HORA ACTUAL": GO SUB VA 
L 41 400": LET HQ-VAL Fí ' 

7535 PRINT BSGN FI.jAT NOT PI ,NOT 
PI;"GRABANDO <E*s M >“*B4: BEEP 
-Ül f 60t OREN #4*"m";F;EÍ 
7540 PRINT #4;FE: PRINT #4;HD: P 
RINT #4;CRE: PRINT #4;REG: PRINT 
#4;FI: PRINT 84iB: PRINT #4;EÍ: 
FOR ft-1 TO B: PRINT #4;Di(A); R 
RINT 4*4;DíA> : NEXT A 
7550 FOR A=1 TO FI-1 
7560 GO SUB B+7600: NEXT A: LET 
Hí <FI >= ,r * 41 : PRINT #4;Hf(FD : CLO 
SE #4: PRINT #SGN FIsAT NOT PI,N 
OT PI; "GRABADO BEEP 

-01,30; PAUSE VAL "100"; CLS : G 
D TO VAL ”40“ 


7601 PRINT #4;H:ttA>; RETURN 

7602 PRINT #4vH*ífi) *1*ÍA); RETUR 
N 

7 ó 03 PRINT #4; Hi (A) ' IS í A) ' JT í A? : 
RETURN 

7604 PRINT #4;HÍÍA) 'I* tA) "JSÍAJ # 
KtíA): RETURN' 

7605 PRINT #4;H$íA) r IT í A) J J^ÍAí J 
Kí ÍA) L$:íA) : RETURN 

7606 PRINT #4:H$ÍA) 1 IÍÍA) J JÍÍA) J 
K$ÍA> LtÍA) P M*<A>: RETURN 

7607 PRINT #4;H4ÍA) 'ITíA) 'Jf(A) J 

KíÍA> 'LíÍA) MíÍA)'Ní(A): RETURN 
7600 PRINT B4;H$ÍA) 'JÍÍA)' 

Ki(A) 'LÍ(A) 'tlf (AÍ f Ni(A) 'OÍ(ñ) : R 
ETURN 

7609 PRINT #4;HTÍA)'I$ÍA> 'JÍÍA)' 
Kiíñ) 'Lí(A ? MiíA) 'Ni(A) 'Oí íA) Pi 
ÍA): RETURN 

7610 PRINT ÍA)'IfÍA) JÍÍA)' 

KÍÍA) 'LÍ(A) 'Mí ÍA) 'NfÍA) J DÍÍA) J Pt 
ÍA)'QiEA)s RETURN 

7611 PRINT #4;Hí(A) 'Ii £A) f J$ í A> ' 
Ki(A) *LÍíñ) 'Mí tA> 'NifA) '□$ IA) 'Pi 
ÍA) 'Q$ íA) 'R$ í A) ; RETURN 

7612 PRINT #4;HíÍA)'li(ñ) r Jf(A)' 
Mí(A) LiÍA) 'Mí íA) 'NiÍA> 'Oí(A) ' Pí 
ÍA) QíÍA)'RíÍA)'SÍíA): RETURN 

7613 PRINT #4;HÍ ÍA) 'líCñl 'Jíf(A) Y 
KÍÍA) 'Lt íA) 'MÍÍAÍ 'Nt í A) 'OÍ(A) 'Pí 
ÍA) 'Qí í A) 'RiíA) 'SiíA) 'T*ÍA)s RET 
URN 

7614 PRINT #4;H4ÍA) 'IÍ(A) "JdMA) ' 
KÍÍA) J LÍÍA) 'MíÍA) 'NiíA) 'OÍÍA) + PÍ 
ÍA)'QiíA) r R$ÍA) r SííA)'TÍÍA)'USÍA 
): RETURN 

7615 PRINT 4t4;HÍíA) r ÜÍA) ' JiíA) ' 
KÍÍA) *LÍÍA) 'M# ÍA) 'Ní í A) 'DÍÍA) 4 P| 
ÍA) -Q*CA> 'R4 íA) "SíÍA) 'Tí(A) 'USÍA 
)'ViíA): RETURN 

8000 REM DATOS DE UN SOLD CAMPO 


PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 



A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficíese 
de un 30% de descuento 
sobre su precio normal. 














8010 IF NQT CRE THEM PRINT #SGN 
PISftT NOT FI,NOT PI; M ND EXISTE 
FICHERO EN MEMOR IA" J Sí: BEEF -01 
,50: PAUSE VAL ”100": INPÜT 
□G TO VAL "120" 

8020 CLS : F'RINT IMVERSE SGN PI 
;"DATOS DE UN BOLO CAMPO" 

9030 PRINT : FOR A-1 TO Ef: PRINT 
A; ";DÍíñ) : DEEP .01,50: NEXT 
A: PRINT ttSGN PI;AT NOT RI,NOT P 
I; "PULSE CAMPO": LET LN=VAL "2"; 

80 SUB VAL. "400": LET H=VAL F* 
0040 CLS s PRINT INVERSE SON FI 
;AT NOT PI,N0T PI;"CAMPO:DíÍH 
FOR A^QGN PI TO FI-SGN PI 
: PRINT : SO SUB VAL "3300+H"s B 
EEF .01,50: NEXT A 
8050 PRINT #5GN PI;AT NOT FI,NOT 
FI-"DESEA DATOS DE OTRO CAMPO?" 
i BEEP .01,20: PAUSE NOT PI: LET 
S*=INKEY*: IF Gí="S" OR 
THEN 00 TO VAL 11 9020" 

8060 CLS : 00 TO VAL "40" 

9500 REM BORRAR FICHERO DE DATOS 
8510 CLS : PRINT INVERSE SON PI 
; "BORRAR UN FICHERO DE DATOS": P 
RINT ; PRINT ttSGN PI;AT NOT PI,N 
OT PI;"Ñ.MICRODRIVE?": LET LM=SG 
N PI: 80 SUB VAL "400": LET E=VA 
L F*s PRINT INVERSE SON PI; n CAT 
ALOGO DEL MICRDDPIVE N. ";E: CAT 
E: PRINT ttSGN PI;AT NO^ PI,NDT 
PI;"FICHERO A BORRAR?": LET LM^V 
AL lt m"l GO SUB VAL "400": INPUT 
PRINT ttSGN PI;AT NOT PI,NOT 
PI 5 "BORRANDO < |l ;f ERASE " 

M";E;F* 

0520 PRINT #SGN PI;AT NOT PI,IMOT 
PI;Bit AT SGN PI,NOT PI; "FICHERO 
< "jFf3"> BORRADO": BEEP .01,35: 
PAUSE VAL "100" 


S330 F'RINT #5GN PI; AT NOT PI,NOT 
PI;"BORRA OTRO FICHERO?": LET L 
M“3GN PI: 00 SUB VAL "400"; IF F 
*="S" OR THEM GO TO VAL 

"8500" 

8540 CLS : GO TO VAL Ir 40" 

9000 REM CATALOGOS 
7005 PDKE 23692,0 
9010 PRINT #SGN PljjAT NQT PI t NDT 
PI;"NUMERO DEL MICRODRIVE": LEI 
LM-SGN PI¡ GO SUB VAL "400" 

9020 CLS : PRINT INVERSÉ SGN PI 
!! "CATALOGO DEL MICRODRIVE N. ";V 
AL Pt: CAT VAL F* 

9030 PRINT ttSGN PI;AT NOT PI,NQT 
PI; "OTRO CATALOGO?";Bit TO 10): 
BEEP .O1,55: PAUSE NGT PI: LET 
a*=INKEY£: IF aí~"=." DR T 

HEN SO TO VAL "9010" 

9040 IF aT“"n" OR aÍ="N" THEN C 
L8 : GO TO VAL "40" 

9050 GO TO VAL "9030" 

9500 REM FINALIZAR 
9510 PRINT USR NOT PI 
■9800 REM SUBR. ALTAS REGISTROS 
9S05 FOR e-fi TO req: CLS : PRIN 
T TAB VAL "10". INVERSE SGN PI :¡ " 
REGISTRO N. ";FI 

9G10 FOR a~SEN PI TO Bs PRINT dS 
ta) : F'RINT #8QN PI;AT NOT PI,N0T 
FI;Dit A > : POKE 23692,255: LET L 
M=D íA>: GO SUB 400: PRINT ttSGN P 
I: AT NOT PI, NOT PI;B:f-Bi: PRINT 

">"* print #sgn pisat nqt 
PIíNOT PI $JQ:T 

9901 IF A=SGM PI THEN LET HiCE) 
=F*s GO TO VAL "9920" 

9902 IF A-2 THEM LET Ií(E>«F$; 
80 TO VAL "9920" 

9903 IF A=3 THEN LET JTíE^FÜ: 
GO TO VAL "9920" 


9904 IF A=4 THEM 
GQ TO VAL "9920" 

LET 

Kf<E)=Ffi 

9905 IF A=5 THEN 
GO TO VAL "9920" 

LET 

Li(EÍ*Ft: 

9906 IF A=6 THEN 

80 TQ VAL "9920" 

LET 

M$(E)=F*: 

9907 IF A=7 THEN 
30 TQ VAL "9920" 

LET 

m (E)=F$: 

9908 IF A=8 THEN 
GO TD VAL "9920" 

LET 

m <E)~F$: 

9909 IF A“9 THEN 

GO TO VAL "9920" 

LET 

Pí <E)“Fi: 

99LO IF A"LO THEN 
GO TO VAL "9920" 

LET 

QT- (E> =F#3 

9911 IF A=11 THEN 
GG TO VAL "9920" 

LET 

R$ÍE>-Ft: 

7912 IF A—12 THEN 
GO TO VAL "9920" 

LET 

G^tEí^Fí: 

9913 IF A-13 THEN 
GO TQ VAL "9920" 

LET 

TitE)=Fi: 

9914 IF A-14 THEM 
80 TO VAL "9920" 

LET 

Uf<E)=F*: 

9915 IF AM5 THEN 
GO TO VAL "9920" 

LET 

Vf(E)=FÍ: 

9920 LET FNEXT A 


9930 LET FI^FI+EGN 

PI 3 

PAUSE VAL 


”50": NEXT e 

9940 PRINT ttSGN PI;AT NOT PI,NOT 
PI; "FICHERO COMPLETO": 

PAUSE VAL "200": CLS ; GO TO VA 
L "40" 

9997 REM GRABACION 
999B STOP 

9999 CLS ; ERASE "ti" ; 1 5 Vun" S ER 
ASE "m";1;"run1": SAVE *"m";l;"r 
un" LINE 10: SAVE *"m";1;"ruñ1" 
LINE 1: VERIFY ;1;"run"s PRI 

NT "CORRECTAMENTE GRABADO <run>" 
: VERIFY *"m";1;"run1": PRINT 
CORRECTAMENTE GRABADO <runl>": P 
RINT .: CAT 1 


1 


i 



¡ATENCION OFERTA DE LANZAMIENTO! 
¡COMPRA 6 JUEGOS: PAGA SOLO 5! 


SPECTRUM 


KNIGHT LORS 

LORD OF THE RINGS 

NOW GAMES 

ROLE POSITIGN 

RAMBO 

SABOTEUR 

SKY FOXY 

SORCERY 

SPY VA SPY 

STAR WUEKE 

SWORD AND SORCERY 

TAUPETj 

THEY SOLD A MILLION 


THfNY 

TOMAHAWKA 
VIERNES 13 

WAV OF THE EXPLODING 
WOST BANKS 
WINÍER GAMES 
YE AR KUNG FU 
ZORRO 


ARNHEM 
ART STUDIG 
BOACH HEAD 2 
COMBAT LYNX 
COMMÁNDO 
CRITICAL MASS 
ELITE 

ENIGMA FORCE 
FAIR ÜGHT 
FIGHTING WARRIOR 
GUNFRIGHT 
I OT THE MASK 


ENVIANOS A 

SOFT INVADERS GENERAL ORAA, 33, 5." 28006 MADRID 

DESEO RECIBIR CONTRA-REEMBOLSO LOS SIGUIENTES JUEGOS: 

NOMBRE 

CANT. 

PRECIO 










TOTAL + 175 (gastos envío) 



ME LOS ENVIAN A; 

NOMBRE: _ 

DIRECCION:_ 

POBLACION: _ 

TELEFONO: _ 


_CGD, POSTAL: 
















Dirige tus cartas a: 
Todospectrum 
Bravo Murillo, 377, 5.°-A 
28020 Madrid 


EL REGISTRO 
INDICE IY 

Al tratar de estudiar algunas 
SUBRUT1NAS DE LA ROM, en¬ 
cuentro, con frecuencia, que recu¬ 
rren al CONTENIDO DEL RE¬ 
GISTRO IN DEXA DO «IY», sin 
que se haya cargado antes en el 
curso de la suhrutina. ¿A qué es 
ello debido? Desearía saber si 
existe algún libro donde vengan ex¬ 
plicadas las SUBRUTINAS DE 
LA ROM, aunque no esté en caste¬ 
llano. 

José M.* Contreras 
Osuna (Sevilla) 

El registro 1Y es usado por el sis¬ 
tema operativo dei Spectrum para 
indexar las variables del sistema, 
es por ello por lo que siempre 
apunta a la dirección 23610 (ERR 
NR). Por lo tanto, IY + 14 equival¬ 
drá a la variable del sistema 
BORDCR (23624) y IY - 50 será 
LAST K (23560). No es conve¬ 
niente utilizar el registro IY en 
nuestras rutinas si no hemos desac¬ 
tivado las interrupciones con DI, 
pues esto haría que las rutinas que 
incrementan FRAMES y exploran 
el teclado no funcionaran correcta¬ 
mente, además de que podrían 
modificar las posiciones que esta¬ 
mos indexando con ÍY. Si utiliza¬ 
mos este sistema, es necesario per¬ 


mitir ¡as interrupciones (El) y de¬ 
volver a IY su valor correspon¬ 
diente (23610) antes de retomar al 
BASIC. Aunque, de hecho, la ruti¬ 
na a la que se salta (STACK_BC) 
realiza esta operación antes que 
nada, podría ocurrir que se produ¬ 
jera una interrupción antes de que 
esto se ejecutara. 

El libro que interesa no es otro 
que el famoso The Complete Spec¬ 
trum ROM Disassembiy de lan 
Logan y Frank O’Hara. publicado 
por la editorial inglesa Melburne 
House Publishers. En él podrás en¬ 
contrar el desensamblado de la to¬ 
talidad de la ROM del Spectrum 
con comentarios (en inglés) de 
cada uno de los pasos. 

MAS SOBRE LOS 
REGISTROS IX E IY 

¿Podemos (en código máquina) 
manejar directamente los registros 
IX e IY?. Y st no, ¿para qué sir¬ 
ven? ¿Cómo se usan las instruccio¬ 
nes BIT, CCF, DI, IND, LDD, 
NEG, NOP, RES y SET? 

Javier Burgués 
Lérida 

Puedes utilizar los registros IX e 
IY con toda comodidad en tus pro¬ 
gramas en ensamblador, admitirán 
todas las instrucciones que sueles 
utilizar con el par HL. pero cuan¬ 


do direceionen alguna posición de 
memoria, deberán ir seguidos de 
un byte en complemento a dos. 
Por ejemplo, puedes usar perfecta¬ 
mente LD Á. (IX+3). Has de tener 
más cuidado con el par 1 Y, pues es 
utilizado por el operativo para in¬ 
dexar las variables del sistema. 

En cuanto a la «ristra» de ins¬ 
trucciones sobre las que pides con¬ 
sejo, es evidente que no es ésta la 
sección adecuada para tan extenso 
tema. Te recomendamos que sigas 
la serie «Aprendiendo lenguaje 
máquina» en la que si no han sido 
ya vistas esas instrucciones lo se¬ 
rán pronto. 

ERROR EN «CINCO 
HORAS CON SCREENS» 

No podría dejar de felicitaros 
por la extraordinaria labor divulga- 
tiva que lleváis a cabo y mis deseos 
son de que cada día más lectores se 
den cuenta de ello y que no caigáis 
en las redes del consumismo, ya 
que el Spectrum, a pesar de ios 
años que tiene y mientras no llegue 
la generación de ios 16 bits, segui¬ 
rá siendo un ordenador de talla. 

Respecto al artículo «Cinco ho¬ 
ras con SCREENS», publicado en 
el número de diciembre, pienso que 
los duendes de la imprenta han 
vuelto a hacer de las suyas, pues 
los principiantes como yo, segura¬ 
mente habrán perdido más de cinco 
horas en averiguar por qué tras mo¬ 
dificar el programa de la figura 3, 
según instrucciones, no se consigue 
el efecto deseado, a saber, lograr 
un O VER 1, 

En mi opinión debería decir: «La 
simulación de un OVER 1 se lleva¬ 
rá a cabo mediante la función 
XOR, cambiaremos la línea 8 por 
XOR (HL)». 

Por otro lado, el artículo «Un 
nuevo operativo para el Spectrum» 
me ha parecido muy bueno. Enho¬ 
rabuena, Manuel Arana, me gusta¬ 
ría mantener contacto directo por 
correspondencia contigo. Mis se¬ 
ñas son: 

Juan J. Jiménez 
Mapocho, 7 
29018 Málaga 



Efectivamente existe la pequeña 
errata que comentas, ese 6 que se 
«coló» en lugar del 8 que corres¬ 
pondía. Aunque no creemos que 
sea tan grave como para hacer per¬ 
der más de esas cinco horas que 
prometía el artículo, debemos pe¬ 
dir disculpas tanto a ti como a 
quienes resultaran despistados por 
este error. 

CGPYCON EL 
INTERFACE1 

Tengo ante mí el numero 12 de 
su revista, donde, en la sección de 
Preguntas y Respuestas, se ofrece 
ei listado de una rutina de ensam¬ 
blador para hacer COPY de panta¬ 
lla con una impresora ADMATE 
DP-100. En el texto que acompaña 
a la rutina se señala que está prepa¬ 
rada para ser utilizada con un in¬ 
terface tipo Kempston, y se comen¬ 
tan las modificaciones necesarias 
para utilizarla con el Interface 1 y 
su salida RS-232. Pues bien, o yo 
no he comprendido las modificacio¬ 
nes que debo hacer o alguna otra 
cosa no funciona, pues al ejecutar 
la rutina mi impresora imprime 
cualquier cosa menos lo que hay en 
pantalla en ese momento. ¿Es posi¬ 
ble que esto sea debido a las varia¬ 
ciones entre las distintas versiones 
de Interface 1?, el mío es un IS- 
SUE 2. 

Luis C. Duran 
Madrid 

El error que detectas no tiene 
nada que ver con las diferencias 
entre versiones del Interface I sino 
más bien con un despiste nuestro 
cuando mencionamos las modifi¬ 
caciones necesarias. A diferencias 
de los interfaces tipo Kempston, el 
Interface 1 sólo necesita recibir el 
carácter de escape (CHRS27) antes 
del primer código de control. Por 
ello no había que eliminar las lí¬ 
neas de impresión de los escapes 
cuando se dieran dos veces segui¬ 
das a lo largo del programa sino 
que había que eliminarlos siempre 
excepto cuando se repetían, en 
cuyo caso debían aparecer una 
sola vez. 
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CAMPAÑA 

DIFAMATORIA 

La carta especial de este mes 
nos la remite desde Sevilla José 
Guzmán, quien frecuentemente 
se pone en contacto con noso¬ 
tros para intercambiar informa¬ 
ción y opiniones sobre el QL. 

Estimados amigos de QL Ma- 
gazine y Todospectrum: 

Os escribo porque me ha lle¬ 
gado un nuevo rumor dentro de 
la campaña difamatoria contra 
el QL. Lo último es que se pue¬ 
de autodestruir por software. 

Te lo presentan diciendo que 
como tiene dos procesadores, se 
les puede liar para que se ata¬ 
quen y se destruyan. Dado que 
la única forma posible de dañar¬ 
lo sería activar dos chips sobre 
el mismo bus a la vez, y eso vie¬ 
ne activado por hardware, es fí¬ 
sicamente imposible dañar cual- 
! quier ordenador por software. 

Este bulo es una auténtica ca¬ 
nallada contra el QL. ¿Qué les 
ha hecho el QL para que lo 
odien tanto? Creo que ya está 
bien. Los usuarios estamos har¬ 
tos de que el QL sea el muñequi- 
to del pim-pam-pum. 

Se oculta la existencia de má¬ 
quinas derivadas del QL como 
el One Per Desk de ICL, el 
Merlín Tonto de British Tele¬ 
com y el Computerphone de 
Australia Telecom, compañías 
telefónicas de Inglaterra y Aus¬ 
tralia respectivamente. Son ver¬ 
siones modificadas del QL que 
incorporan teclado, módem, te¬ 
léfono y dos microdrives. A di¬ 
ferencia del QL, llevan los cua¬ 
tro programas de Psion en 
ROM y el SuperBASIC en mi- 
crodrive. 

Esto vuelve a demostrar la in¬ 
creíble «competencia» técnica 
de ios críticos del QL; creo que 
ICL y las dos telefónicas les han 
dado la mejor respuesta. 

Saludos. 

José M. Guzmán 
Sevilla 
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EL CORCHO 
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Vendo Amstrad CPC 664, 

monitor color, unidad de disco 3” 
(en garantía), programas de origen 
más software valorado en 20.000 
ptas,, joysiick Quickshot Ií y ma¬ 
nual firmware. Aceptaré la mejor 
oferta a partir de 85.000 ptas. C. 
García de Castro. Riera Alta, 43, 
2.°, 1-A. 08001 Barcelona, 


Vendo ZX-Spectrum 48 K 

por cambio a 128 K. 20.000 ptas. 
Perfecto estado, pocas horas de 
uso. Regalo paquete de programas 
a elección del interesado. Preguni- 
tar por Luis. Tel.: (91) 243 80 57. 
























TODO EL CATALOGO DE SOFTWARE 
CON MAS DE 800 FICHAS 




1. a ENTREGA 3.500 — PTAS. 
(400 FICHAS + FICHERO) 

RESTO EN TRES 
ENTREGAS TRIMESTRALES 
DE 1.500 — PTAS. CADA UNA, 


PRECIO TOTAL DE LA SUSCRIPCION - 8.000 — PTAS. 


CUPON DE PEDIDO 


r 


El importe lo abonaré: POR 
CON MI TARJETA DE CREDITO 


CHEOUE 

□ 


□ 


CONTRAER EEMBOLSO □ 
Reí: CATALOGO DE SOFTWARE 


SOLICITE HOY MISMO 
EL CATALOGO DIRECTAMENTE A 


Cargue 8.000 pías, a mi tarjeta American Express □ Visa O Interbank 
Número de mi tarjeta ________ 


¡atoáis, s.a. 

BRAVO MURILLO, 377 - 5,° A 
28020 MADRID 


Fecha de caducidad — _ - — _ Firma 

NOMBRE ____ _ __ 

CALLE _ 


O EN LOS CONCESIONARIOS IBM 


CIUDAD 


D P 


PROVINCIA 
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GP-SO • La pequeña 40 cps. Pape! normal con interface paralelo, serial y Spectmm............3 7*990 pías. 

GP-700 * La de color 50 cps. 7 colores, 80 columnas. Tracción y fricción. Papel de 10 pulgadas ***... 64.990 ptas. 

SP-1,000 * La programabie 100 cps.24 cps en alta calidad 96 cart. programa bles en RAM, Introductor hoja a hoja.#.64.990 ptas. 

SP-1.00ÜAS La programabie 100 cps.24 cps en alta calidad con interface RS-232. Introductor hoja a hoja*#..**.*.59.900 ptas* 

MP-1.300AlLa polivalente 300 cps, 60 cps en alta calidad, interface paralelo y RS-232. Introductor hoja a hoja.#&........119.900 ptas. 

BP-5.200 * La de oficina 200 cps, 106 en alta calidad.Buffer 4K .Carro de 15 M .Tracción y fricción*#*,***,*,*.*..**.199*900 ptas* 

BP-5.420 * La más rápida 420 cps. 106 cps en alta calidad. Buffer de 18K. Paralelo y RS-232.#......~ 339.900 ptas. 


Interfaces; Serie RS-232C, Spectmm, IBM, COMMODORE, MSX* QL, Apple Macintosh, HP-IB 
♦ Introductor automático de documentos opcional. 

& Kit de color opcional* 

Nota: LVA. 12%, no incluido en los precios arriba indicados 

Ávda. Blasco Ibáñez, 116 ¡ Muntaner, 60-2.°-4. a ¡ Agustín de Foxá, 25-3.°-A 

Tel. (96) 372. 88. 89 / Tel. (93) 323. 32, 19 / Tels. (91) 733. 57.00-733. 56. 50 

Telex 62220 - 46022 VALENCIA / 08011 BARCELONA / 28036 MADRID 


* con interface paralelo 

* con interface Spectmm 






























